home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / triton / units / tritonmacros.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-01-01  |  71.9 KB  |  2,636 lines
  1. {
  2.     This file is part of the Free Pascal run time library.
  3.  
  4.     A file in Amiga system run time library.
  5.     Copyright (c) 1998-2000 by Nils Sjoholm
  6.     member of the Amiga RTL development team.
  7.  
  8.     See the file COPYING.FPC, included in this distribution,
  9.     for details about the copyright.
  10.  
  11.     This program is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14.  
  15.  **********************************************************************}
  16.  
  17. {
  18.     This is all triton macros translated to procedures.
  19.     Check the tritondemos on how to use the procedures.
  20.  
  21.     Some time the compiler tell you that it can't pick the 
  22.     right overlay function, well the only one so far is TextId.
  23.     Why I don't know, the fix is just to use a pchar if there
  24.     is a problem (TextId(pchar('your text'#0)).
  25.  
  26.     nils.sjoholm@mailbox.xwipnet.se
  27. }
  28.  
  29.  
  30. unit tritonmacros;
  31.  
  32. interface
  33.  
  34. uses triton, utility,pastoc,vartags;
  35.  
  36. var
  37.    tritontags : array[0..400] of tTagItem;
  38.    tindex : longint;
  39.  
  40. PROCEDURE ProjectStart;
  41. PROCEDURE EndProject;
  42. PROCEDURE WindowTitle(t : STRING);
  43. PROCEDURE WindowTitle(t : PChar);
  44. PROCEDURE ScreenTitle(t : STRING);
  45. PROCEDURE ScreenTitle(t : PChar);
  46. PROCEDURE WindowID(gadid : longint);
  47. PROCEDURE WindowFlags(f : longint);
  48. PROCEDURE WindowPosition(pos : longint);
  49. PROCEDURE WindowUnderscore(und : STRING);
  50. PROCEDURE WindowUnderscore(und : PChar);
  51. PROCEDURE WindowDimensions(dim : pTR_Dimensions);
  52. PROCEDURE WindowBackfillWin;
  53. PROCEDURE WindowBackfillReq;
  54. PROCEDURE WindowBackfillNone;
  55. PROCEDURE WindowBackfillS;
  56. PROCEDURE WindowBackfillSA;
  57. PROCEDURE WindowBackfillSF;
  58. PROCEDURE WindowBackfillSB;
  59. PROCEDURE WindowBackfillA;
  60. PROCEDURE WindowBackfillAF;
  61. PROCEDURE WindowBackfillAB;
  62. PROCEDURE WindowBackfillF;
  63. PROCEDURE WindowBackfillFB;
  64. PROCEDURE CustomScreen(scr : Pointer);
  65. PROCEDURE PubScreen(scr : Pointer);
  66. PROCEDURE PubScreenName(wname : STRING);
  67. PROCEDURE PubScreenName(wname : PChar);
  68. PROCEDURE QuickHelpOn(onn : Integer);
  69. { Menus }
  70. PROCEDURE BeginMenu(t : STRING);
  71. PROCEDURE BeginMenu(t : PChar);
  72. PROCEDURE MenuFlags(f : longint);
  73. PROCEDURE MenuItem(t : STRING ;gadid : longint);
  74. PROCEDURE MenuItem(t : PChar ;gadid : longint);
  75. PROCEDURE MenuItemC(t : STRING; gadid : longint);
  76. PROCEDURE MenuItemC(t : PChar; gadid : longint);
  77. PROCEDURE MenuItemCC(t : STRING; gadid : longint);
  78. PROCEDURE MenuItemCC(t : PChar; gadid : longint);
  79. PROCEDURE BeginSub(t : STRING);
  80. PROCEDURE BeginSub(t : PChar);
  81. PROCEDURE MenuItemD(t : STRING; gadid : longint);
  82. PROCEDURE MenuItemD(t : PChar; gadid : longint);
  83. PROCEDURE SubItem(t : STRING; gadid : longint);
  84. PROCEDURE SubItem(t : PChar; gadid : longint);
  85. PROCEDURE SubItemC(t : STRING; gadid : longint);
  86. PROCEDURE SubItemC(t : PChar; gadid : longint);
  87. PROCEDURE SubItemCC(t : STRING; gadid : longint);
  88. PROCEDURE SubItemCC(t : PChar; gadid : longint);
  89. PROCEDURE SubItemD(t : STRING ;gadid : longint);
  90. PROCEDURE SubItemD(t : PChar ;gadid : longint);
  91. PROCEDURE ItemBarlabel;
  92. PROCEDURE SubBarlabel;
  93. { Groups }
  94. PROCEDURE HorizGroup;
  95. PROCEDURE HorizGroupE;
  96. PROCEDURE HorizGroupS;
  97. PROCEDURE HorizGroupA;
  98. PROCEDURE HorizGroupEA;
  99. PROCEDURE HorizGroupSA;
  100. PROCEDURE HorizGroupC;
  101. PROCEDURE HorizGroupEC;
  102. PROCEDURE HorizGroupSC;
  103. PROCEDURE HorizGroupAC;
  104. PROCEDURE HorizGroupEAC;
  105. PROCEDURE HorizGroupSAC;
  106. PROCEDURE VertGroup;
  107. PROCEDURE VertGroupE;
  108. PROCEDURE VertGroupS;
  109. PROCEDURE VertGroupA;
  110. PROCEDURE VertGroupEA;
  111. PROCEDURE VertGroupSA;
  112. PROCEDURE VertGroupC;
  113. PROCEDURE VertGroupEC;
  114. PROCEDURE VertGroupSC;
  115. PROCEDURE VertGroupAC;
  116. PROCEDURE VertGroupEAC;
  117. PROCEDURE VertGroupSAC;
  118. PROCEDURE EndGroup;
  119. PROCEDURE ColumnArray;
  120. PROCEDURE LineArray;
  121. PROCEDURE BeginColumn;
  122. PROCEDURE BeginLine;
  123. PROCEDURE BeginColumnI;
  124. PROCEDURE BeginLineI;
  125. PROCEDURE BeginColumnE;
  126. PROCEDURE BeginLineE;
  127. PROCEDURE EndColumn;
  128. PROCEDURE EndLine;
  129. PROCEDURE EndArray;
  130. { DisplayObject }
  131. PROCEDURE QuickHelp(Str : STRING);
  132. PROCEDURE QuickHelp(Str : PChar);
  133. { Space }
  134. PROCEDURE SpaceB;
  135. PROCEDURE Space;
  136. PROCEDURE SpaceS;
  137. PROCEDURE SpaceN;
  138. { Text }
  139. PROCEDURE TextN(ttext : STRING);
  140. PROCEDURE TextN(ttext : PChar);
  141.  
  142. PROCEDURE TextH(ttext : STRING);
  143. PROCEDURE TextH(ttext : PChar);
  144.  
  145. PROCEDURE Text3(ttext : STRING);
  146. PROCEDURE Text3(ttext : PChar);
  147. PROCEDURE TextB(ttext : STRING);
  148. PROCEDURE TextB(ttext : PChar);
  149. PROCEDURE TextT(ttext : STRING);
  150. PROCEDURE TextT(ttext : PChar);
  151. PROCEDURE TextID(ttext : STRING ; gadid : longint);
  152. PROCEDURE TextID(ttext : PChar ; gadid : longint);
  153. PROCEDURE TextNR(t : STRING);
  154. PROCEDURE TextNR(t : PChar);
  155. PROCEDURE ClippedText(t : STRING);
  156. PROCEDURE ClippedText(t : PChar);
  157. PROCEDURE ClippedTextID(t : STRING; gadid : longint);
  158. PROCEDURE ClippedTextID(t : PChar; gadid : longint);
  159. PROCEDURE CenteredText(ttext : STRING);
  160. PROCEDURE CenteredText(ttext : PChar);
  161. PROCEDURE CenteredTextH(ttext : STRING);
  162. PROCEDURE CenteredTextH(ttext : PChar);
  163. PROCEDURE CenteredText3(ttext : STRING);
  164. PROCEDURE CenteredText3(ttext : PChar);
  165. PROCEDURE CenteredTextB(ttext : STRING);
  166. PROCEDURE CenteredTextB(ttext : PChar);
  167. PROCEDURE CenteredTextID(ttext : STRING ; gadid : longint);
  168. PROCEDURE CenteredTextID(ttext : PChar ; gadid : longint);
  169. PROCEDURE CenteredText_BS(ttext : STRING);
  170. PROCEDURE CenteredText_BS(ttext : PChar);
  171. PROCEDURE TextBox(ttext : STRING ; gadid : longint ; mwid : longint);
  172. PROCEDURE TextBox(ttext : PChar ; gadid : longint ; mwid : longint);
  173. PROCEDURE ClippedTextBox(ttext : STRING ; gadid : longint);
  174. PROCEDURE ClippedTextBox(ttext : PChar ; gadid : longint);
  175. PROCEDURE ClippedTextBoxMW(ttext : STRING ; gadid : longint ; mwid : longint);
  176. PROCEDURE ClippedTextBoxMW(ttext : PChar ; gadid : longint ; mwid : longint);
  177. PROCEDURE TextRIGHT(t : STRING ;gadid : longint);
  178. PROCEDURE TextRIGHT(t : PChar ;gadid : longint);
  179. PROCEDURE IntegerS(i : longint);
  180. PROCEDURE IntegerH(i : longint);
  181. PROCEDURE Integer3(i : longint);
  182. PROCEDURE IntegerB(i : longint);
  183. PROCEDURE CenteredInteger(i : longint);
  184. PROCEDURE CenteredIntegerH(i : longint);
  185. PROCEDURE CenteredInteger3(i : longint);
  186. PROCEDURE CenteredIntegerB(i : longint);
  187. PROCEDURE IntegerBox(def,gadid,mwid : longint);
  188. { Button }
  189. PROCEDURE Button(ttext : STRING ; gadid : longint);
  190. PROCEDURE Button(ttext : PChar ; gadid : longint);
  191. PROCEDURE ButtonR(ttext : STRING ; gadid : longint);
  192. PROCEDURE ButtonR(ttext : PChar ; gadid : longint);
  193. PROCEDURE ButtonE(ttext : STRING ;gadid : longint);
  194. PROCEDURE ButtonE(ttext : PChar ;gadid : longint);
  195. PROCEDURE ButtonRE(ttext : STRING ;gadid : longint);
  196. PROCEDURE ButtonRE(ttext : PChar ;gadid : longint);
  197. PROCEDURE CenteredButton(t : STRING;i : longint);
  198. PROCEDURE CenteredButton(t : PChar;i : longint);
  199. PROCEDURE CenteredButtonR(t : STRING ;i : longint);
  200. PROCEDURE CenteredButtonR(t : PChar ;i : longint);
  201. PROCEDURE CenteredButtonE(t : STRING;i : longint);
  202. PROCEDURE CenteredButtonE(t : PChar;i : longint);
  203. PROCEDURE CenteredButtonRE(t : STRING ;i : longint);
  204. PROCEDURE CenteredButtonRE(t : PChar ;i : longint);
  205. PROCEDURE EmptyButton(gadid : longint);
  206. PROCEDURE GetFileButton(gadid : longint);
  207. PROCEDURE GetDrawerButton(gadid : longint);
  208. PROCEDURE GetEntryButton(gadid : longint);
  209. PROCEDURE GetFileButtonS(s : STRING ;gadid : longint);
  210. PROCEDURE GetFileButtonS(s : PChar ;gadid : longint);
  211. PROCEDURE GetDrawerButtonS(s : STRING;gadid : longint);
  212. PROCEDURE GetDrawerButtonS(s : PChar;gadid : longint);
  213. PROCEDURE GetEntryButtonS(s : STRING ;gadid : longint);
  214. PROCEDURE GetEntryButtonS(s : PChar ;gadid : longint);
  215. { Line }
  216. PROCEDURE Line(flags : longint);
  217. PROCEDURE HorizSeparator;
  218. PROCEDURE VertSeparator;
  219. PROCEDURE NamedSeparator(ttext : STRING);
  220. PROCEDURE NamedSeparator(ttext : PChar);
  221. PROCEDURE NamedSeparatorI(te : STRING ;gadid : longint);
  222. PROCEDURE NamedSeparatorI(te : PChar ;gadid : longint);
  223. PROCEDURE NamedSeparatorN(ttext : STRING);
  224. PROCEDURE NamedSeparatorN(ttext : PChar);
  225. PROCEDURE NamedSeparatorIN(te : STRING ;gadid : longint);
  226. PROCEDURE NamedSeparatorIN(te : PChar ;gadid : longint);
  227. { FrameBox }
  228. PROCEDURE GroupBox;
  229. PROCEDURE NamedFrameBox(t : STRING);
  230. PROCEDURE NamedFrameBox(t : PChar);
  231. PROCEDURE TTextBox;
  232. { DropBox }
  233. PROCEDURE DropBox(gadid : longint);
  234. { CheckBox gadget }
  235. PROCEDURE CheckBox(gadid : longint);
  236. PROCEDURE CheckBoxV(value : longint; gadid : longint);
  237. PROCEDURE CheckBoxC(gadid : longint);
  238. PROCEDURE CheckBoxLEFT(gadid : longint);
  239. PROCEDURE CheckBoxCLEFT(gadid : longint);
  240. { String gadget }
  241. PROCEDURE StringGadget(def : STRING;gadid : longint);
  242. PROCEDURE StringGadget(def : PChar;gadid : longint);
  243. PROCEDURE StringGadgetNR(def : STRING ;gadid : longint);
  244. PROCEDURE StringGadgetNR(def : PChar ;gadid : longint);
  245. PROCEDURE PasswordGadget(def : STRING ;gadid : longint);
  246. PROCEDURE PasswordGadget(def : PChar ;gadid : longint);
  247. { Cycle gadget }
  248. PROCEDURE CycleGadget(ent : Pointer ; val,gadid : longint);
  249. PROCEDURE MXGadget(ent : Pointer ; val,gadid : longint);
  250. PROCEDURE MXGadgetR(ent : Pointer; val,gadid : longint);
  251. { Slider gadget }
  252. PROCEDURE SliderGadget(mini,maxi,val,gadid : longint);
  253. PROCEDURE SliderGadgetV(mini,maxi,val,gadid : longint);
  254. { Scroller gadget }
  255. PROCEDURE ScrollerGadget(total,visible,val,id : longint);
  256. PROCEDURE ScrollerGadgetV(total,visible,val,id : longint);
  257. { Palette gadget }
  258. PROCEDURE PaletteGadget(val,gadid : longint);
  259. { Listview gadget }
  260. PROCEDURE ListRO(ent : Pointer;gadid,top : longint);
  261. PROCEDURE ListSel(ent : Pointer ;gadid,top : longint);
  262. PROCEDURE ListSS(e : Pointer ;gadid,top,v : longint);
  263. PROCEDURE ListSSM(e : Pointer ;gadid,top,v,min : longint);
  264. PROCEDURE ListROC(ent : Pointer;gadid,top : longint);
  265. PROCEDURE ListSelC(ent : Pointer;gadid,top : longint);
  266. PROCEDURE ListSSC(e : Pointer;gadid,top,v : longint);
  267. PROCEDURE ListRON(ent : Pointer ;gadid,top : longint);
  268. PROCEDURE ListSelN(ent : Pointer;gadid,top : longint);
  269. PROCEDURE ListSSN(e : Pointer;gadid,top,v : longint);
  270. PROCEDURE ListROCN(ent : Pointer;gadid,top : longint);
  271. PROCEDURE ListSelCN(ent : Pointer;gadid,top : longint);
  272. PROCEDURE ListSSCN(e : Pointer;gadid,top,v : longint);
  273. PROCEDURE FWListRO(ent : Pointer;gadid,top : longint);
  274. PROCEDURE FWListSel(ent : Pointer;gadid,top : longint);
  275. PROCEDURE FWListSS(e : Pointer;gadid,top,v : longint);
  276. PROCEDURE FWListROC(ent : Pointer;gadid,top : longint);
  277. PROCEDURE FWListSelC(ent : Pointer;gadid,top : longint);
  278. PROCEDURE FWListSSC(e : Pointer;gadid,top,v : longint);
  279. PROCEDURE FWListRON(ent : Pointer;gadid,top : longint);
  280. PROCEDURE FWListSelN(ent : Pointer;gadid,top : longint);
  281. PROCEDURE FWListSSN(e : Pointer;gadid,top,v : longint);
  282. PROCEDURE FWListROCN(ent : Pointer;gadid,top : longint);
  283. PROCEDURE FWListSelCN(ent : Pointer;gadid,top : longint);
  284. PROCEDURE FWListSSCN(e : Pointer;gadid,top,v : longint);
  285. { Progress indicator }
  286. PROCEDURE Progress(maxi,value,gadid : longint);
  287. { Image }
  288. PROCEDURE BoopsiImage(img : Pointer);
  289. PROCEDURE BoopsiImageD(img : Pointer;mw,mh : longint);
  290. { Attributes }
  291. PROCEDURE ID(gadid : longint);
  292. PROCEDURE Disabled;
  293. PROCEDURE ObjectBackfillWin;
  294. PROCEDURE ObjectBackfillReq;
  295. PROCEDURE ObjectBackfillB;
  296. PROCEDURE ObjectBackfillS;
  297. PROCEDURE ObjectBackfillSA;
  298. PROCEDURE ObjectBackfillSF;
  299. PROCEDURE ObjectBackfillSB;
  300. PROCEDURE ObjectBackfillA;
  301. PROCEDURE ObjectBackfillAF;
  302. PROCEDURE ObjectBackfillAB;
  303. PROCEDURE ObjectBackfillF;
  304. PROCEDURE ObjectBackfillFB;
  305. { Requester support }
  306. PROCEDURE BeginRequester(t : STRING; p : longint);
  307. PROCEDURE BeginRequester(t : PChar; p : longint);
  308. PROCEDURE BeginRequesterGads;
  309. PROCEDURE EndRequester;
  310. PROCEDURE SetTRTag( thetag, thedata : longint);
  311.  
  312. IMPLEMENTATION
  313.  
  314. PROCEDURE ProjectStart;
  315. BEGIN
  316.     tindex := 0;
  317. END;
  318.  
  319. PROCEDURE EndProject;
  320. BEGIN
  321.     tritontags[tindex].ti_Tag := TAG_DONE;
  322. END;
  323.  
  324. PROCEDURE WindowTitle(t : STRING);
  325. BEGIN
  326.     tritontags[tindex].ti_Tag := TRWI_Title;
  327.     tritontags[tindex].ti_Data := longstr(t);
  328.     Inc(tindex);
  329. END;
  330.  
  331. PROCEDURE WindowTitle(t : PChar);
  332. BEGIN
  333.     tritontags[tindex].ti_Tag := TRWI_Title;
  334.     tritontags[tindex].ti_Data := longint(t);
  335.     Inc(tindex);
  336. END;
  337.  
  338. PROCEDURE ScreenTitle(t : STRING);
  339. BEGIN
  340.     ScreenTitle(pas2c(t));
  341. END;
  342.  
  343. PROCEDURE ScreenTitle(t : PChar);
  344. BEGIN
  345.     tritontags[tindex].ti_Tag := TRWI_ScreenTitle;
  346.     tritontags[tindex].ti_Data := longint(t);
  347.     Inc(tindex);
  348. END;
  349.  
  350. PROCEDURE WindowID(gadid : longint);
  351. BEGIN
  352.     tritontags[tindex].ti_Tag := TRWI_ID;
  353.     tritontags[tindex].ti_Data := longint(gadid);
  354.     Inc(tindex);
  355. END;
  356.  
  357. PROCEDURE WindowFlags(f : longint);
  358. BEGIN
  359.     tritontags[tindex].ti_Tag := TRWI_Flags;
  360.     tritontags[tindex].ti_Data := longint(f);
  361.     Inc(tindex);
  362. END;
  363.  
  364. PROCEDURE WindowPosition(pos : longint);
  365. BEGIN
  366.     tritontags[tindex].ti_Tag := TRWI_Position;
  367.     tritontags[tindex].ti_Data := longint(pos);
  368.     Inc(tindex);
  369. END;
  370.  
  371. PROCEDURE WindowUnderscore(und : STRING);
  372. BEGIN
  373.     WindowUnderscore(pas2c(und));
  374. END;
  375.  
  376. PROCEDURE WindowUnderscore(und : PChar);
  377. BEGIN
  378.     tritontags[tindex].ti_Tag := TRWI_Underscore;
  379.     tritontags[tindex].ti_Data := longint(und);
  380.     Inc(tindex);
  381. END;
  382.  
  383. PROCEDURE WindowDimensions(dim : pTR_Dimensions);
  384. BEGIN
  385.     tritontags[tindex].ti_Tag := TRWI_Dimensions;
  386.     tritontags[tindex].ti_Data := longint(dim);
  387.     Inc(tindex);
  388. END;
  389.  
  390. PROCEDURE WindowBackfillWin;
  391. BEGIN
  392.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  393.     tritontags[tindex].ti_Data := TRBF_WINDOWBACK;
  394.     Inc(tindex);
  395. END;
  396.  
  397. PROCEDURE WindowBackfillReq;
  398. begin
  399.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  400.     tritontags[tindex].ti_Data := TRBF_REQUESTERBACK;
  401.     Inc(tindex);
  402. END;
  403.  
  404. PROCEDURE WindowBackfillNone;
  405. begin
  406.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  407.     tritontags[tindex].ti_Data := TRBF_NONE;
  408.     Inc(tindex);
  409. END;
  410.  
  411. PROCEDURE WindowBackfillS;
  412. begin
  413.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  414.     tritontags[tindex].ti_Data := TRBF_SHINE;
  415.     Inc(tindex);
  416. END;
  417.  
  418. PROCEDURE WindowBackfillSA;
  419. begin
  420.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  421.     tritontags[tindex].ti_Data := TRBF_SHINE_SHADOW;
  422.     Inc(tindex);
  423. END;
  424.  
  425. PROCEDURE WindowBackfillSF;
  426. begin
  427.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  428.     tritontags[tindex].ti_Data := TRBF_SHINE_FILL;
  429.     Inc(tindex);
  430. END;
  431.  
  432. PROCEDURE WindowBackfillSB;
  433. begin
  434.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  435.     tritontags[tindex].ti_Data := TRBF_SHINE_BACKGROUND;
  436.     Inc(tindex);
  437. END;
  438.  
  439. PROCEDURE WindowBackfillA;
  440. begin
  441.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  442.     tritontags[tindex].ti_Data := TRBF_SHADOW;
  443.     Inc(tindex);
  444. END;
  445.  
  446. PROCEDURE WindowBackfillAF;
  447. begin
  448.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  449.     tritontags[tindex].ti_Data := TRBF_SHADOW_FILL;
  450.     Inc(tindex);
  451. END;
  452.  
  453. PROCEDURE WindowBackfillAB;
  454. begin
  455.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  456.     tritontags[tindex].ti_Data := TRBF_SHADOW_BACKGROUND;
  457.     Inc(tindex);
  458. END;
  459.  
  460. PROCEDURE WindowBackfillF;
  461. begin
  462.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  463.     tritontags[tindex].ti_Data := TRBF_FILL;
  464.     Inc(tindex);
  465. END;
  466.  
  467. PROCEDURE WindowBackfillFB;
  468. begin
  469.     tritontags[tindex].ti_Tag := TRWI_Backfill;
  470.     tritontags[tindex].ti_Data := TRBF_FILL_BACKGROUND;
  471.     Inc(tindex);
  472. END;
  473.  
  474. PROCEDURE CustomScreen(scr : Pointer);
  475. BEGIN
  476.     tritontags[tindex].ti_Tag := TRWI_CustomScreen;
  477.     tritontags[tindex].ti_Data := longint(scr);
  478.     Inc(tindex);
  479. END;
  480.  
  481. PROCEDURE PubScreen(scr : Pointer);
  482. BEGIN
  483.     tritontags[tindex].ti_Tag := TRWI_PubScreen;
  484.     tritontags[tindex].ti_Data := longint(scr);
  485. END;
  486.  
  487. PROCEDURE PubScreenName(wname : STRING);
  488. BEGIN
  489.     PubScreenName(pas2c(wname));
  490. END;
  491.  
  492. PROCEDURE PubScreenName(wname : PChar);
  493. BEGIN
  494.     tritontags[tindex].ti_Tag := TRWI_PubScreenName;
  495.     tritontags[tindex].ti_Data := longint(wname);
  496.     Inc(tindex);
  497. END;
  498.  
  499. PROCEDURE QuickHelpOn(onn : Integer);
  500. BEGIN
  501.     tritontags[tindex].ti_Tag := TRWI_QuickHelp;
  502.     tritontags[tindex].ti_Data := longint(onn);
  503.     Inc(tindex);
  504. END;
  505.  
  506. { Menus }
  507. PROCEDURE BeginMenu(t : STRING);
  508. BEGIN
  509.     BeginMenu(pas2c(t));
  510. END;
  511.  
  512. PROCEDURE BeginMenu(t : PChar);
  513. BEGIN
  514.     tritontags[tindex].ti_Tag := TRMN_Title;
  515.     tritontags[tindex].ti_Data := longint(t);
  516.     Inc(tindex);
  517. END;
  518.  
  519. PROCEDURE MenuFlags(f : longint);
  520. BEGIN
  521.     tritontags[tindex].ti_Tag := TRMN_Flags;
  522.     tritontags[tindex].ti_Data := longint(f);
  523.     Inc(tindex);
  524. END;
  525.  
  526. PROCEDURE MenuItem(t : STRING ;gadid : longint);
  527. BEGIN
  528.     MenuItem(pas2c(t),gadid);
  529. END;
  530.  
  531. PROCEDURE MenuItem(t : PChar ;gadid : longint);
  532. BEGIN
  533.     tritontags[tindex].ti_Tag := TRMN_Item;
  534.     tritontags[tindex].ti_Data := longint(t);
  535.     Inc(tindex);
  536.     tritontags[tindex].ti_Tag := TRAT_ID;
  537.     tritontags[tindex].ti_Data := longint(gadid);
  538.     Inc(tindex);
  539. END;
  540.  
  541. PROCEDURE MenuItemC(t : STRING; gadid : longint);
  542. BEGIN
  543.     MenuItemC(pas2c(t),gadid);
  544. END;
  545.  
  546. PROCEDURE MenuItemC(t : PChar; gadid : longint);
  547. BEGIN
  548.     tritontags[tindex].ti_Tag := TRMN_Item;
  549.     tritontags[tindex].ti_Data := longint(t);
  550.     Inc(tindex);
  551.     tritontags[tindex].ti_Tag := TRMN_Flags;
  552.     tritontags[tindex].ti_Data := TRMF_CHECKIT;
  553.     Inc(tindex);
  554.     tritontags[tindex].ti_Tag := TRAT_ID;
  555.     tritontags[tindex].ti_Data := longint(gadid);
  556.     Inc(tindex);
  557. END;
  558.  
  559. PROCEDURE MenuItemCC(t : STRING; gadid : longint);
  560. BEGIN
  561.     MenuItemCC(pas2c(t),gadid);
  562. END;
  563.  
  564. PROCEDURE MenuItemCC(t : PChar; gadid : longint);
  565. BEGIN
  566.     tritontags[tindex].ti_Tag := TRMN_Item;
  567.     tritontags[tindex].ti_Data := longint(t);
  568.     Inc(tindex);
  569.     tritontags[tindex].ti_Tag := TRMN_Flags;
  570.     tritontags[tindex].ti_Data := TRMF_CHECKED;
  571.     Inc(tindex);
  572.     tritontags[tindex].ti_Tag := TRAT_ID;
  573.     tritontags[tindex].ti_Data := longint(gadid);
  574.     Inc(tindex);
  575. END;
  576.  
  577. PROCEDURE BeginSub(t : STRING);
  578. BEGIN
  579.     BeginSub(pas2c(t));
  580. END;
  581.  
  582. PROCEDURE BeginSub(t : PChar);
  583. BEGIN
  584.     tritontags[tindex].ti_Tag := TRMN_Item;
  585.     tritontags[tindex].ti_Data := longint(t);
  586.     Inc(tindex);
  587. END;
  588.  
  589. PROCEDURE MenuItemD(t : STRING; gadid : longint);
  590. BEGIN
  591.     MenuItemD(pas2c(t),gadid);
  592. END;
  593.  
  594. PROCEDURE MenuItemD(t : PChar; gadid : longint);
  595. BEGIN
  596.     tritontags[tindex].ti_Tag := TRMN_Item;
  597.     tritontags[tindex].ti_Data := longint(t);
  598.     Inc(tindex);
  599.     MenuFlags(TRMF_DISABLED);
  600.     tritontags[tindex].ti_Tag := TRAT_ID;
  601.     tritontags[tindex].ti_Data := longint(gadid);
  602.     Inc(tindex);
  603. END;
  604.  
  605. PROCEDURE SubItem(t : STRING; gadid : longint);
  606. BEGIN
  607.     SubItem(pas2c(t),gadid);
  608. END;
  609.  
  610. PROCEDURE SubItem(t : PChar; gadid : longint);
  611. BEGIN
  612.     tritontags[tindex].ti_Tag := TRMN_Sub;
  613.     tritontags[tindex].ti_Data := longint(t);
  614.     Inc(tindex);
  615.     tritontags[tindex].ti_Tag := TRAT_ID;
  616.     tritontags[tindex].ti_Data := longint(gadid);
  617.     Inc(tindex);
  618. END;
  619.  
  620. PROCEDURE SubItemC(t : STRING; gadid : longint);
  621. BEGIN
  622.     SubItemC(pas2c(t),gadid);
  623. END;
  624.  
  625. PROCEDURE SubItemC(t : PChar; gadid : longint);
  626. BEGIN
  627.     tritontags[tindex].ti_Tag := TRMN_Sub;
  628.     tritontags[tindex].ti_Data := longint(t);
  629.     Inc(tindex);
  630.     tritontags[tindex].ti_Tag := TRMN_Flags;
  631.     tritontags[tindex].ti_Data := TRMF_CHECKIT;
  632.     Inc(tindex);
  633.     tritontags[tindex].ti_Tag := TRAT_ID;
  634.     tritontags[tindex].ti_Data := longint(gadid);
  635.     Inc(tindex);
  636. END;
  637.  
  638. PROCEDURE SubItemCC(t : STRING; gadid : longint);
  639. BEGIN
  640.     SubItemCC(pas2c(t),gadid);
  641. END;
  642.  
  643. PROCEDURE SubItemCC(t : PChar; gadid : longint);
  644. BEGIN
  645.     tritontags[tindex].ti_Tag := TRMN_Sub;
  646.     tritontags[tindex].ti_Data := longint(t);
  647.     Inc(tindex);
  648.     tritontags[tindex].ti_Tag := TRMN_Flags;
  649.     tritontags[tindex].ti_Data := TRMF_CHECKED;
  650.     Inc(tindex);
  651.     tritontags[tindex].ti_Tag := TRAT_ID;
  652.     tritontags[tindex].ti_Data := longint(gadid);
  653.     Inc(tindex);
  654. END;
  655.  
  656. PROCEDURE SubItemD(t : STRING ;gadid : longint);
  657. BEGIN
  658.     SubItemD(pas2c(t),gadid);
  659. END;
  660.  
  661. PROCEDURE SubItemD(t : PChar ;gadid : longint);
  662. BEGIN
  663.     tritontags[tindex].ti_Tag := TRMN_Sub;
  664.     tritontags[tindex].ti_Data := longint(t);
  665.     Inc(tindex);
  666.     MenuFlags(TRMF_DISABLED);
  667.     tritontags[tindex].ti_Tag := TRAT_ID;
  668.     tritontags[tindex].ti_Data := longint(gadid);
  669.     Inc(tindex);
  670. END;
  671.  
  672. PROCEDURE ItemBarlabel;
  673. begin
  674.     tritontags[tindex].ti_Tag := TRMN_Item;
  675.     tritontags[tindex].ti_Data := TRMN_BARLABEL;
  676.     Inc(tindex);
  677. END;
  678.  
  679. PROCEDURE SubBarlabel;
  680. begin
  681.     tritontags[tindex].ti_Tag := TRMN_Sub;
  682.     tritontags[tindex].ti_Data := TRMN_BARLABEL;
  683.     Inc(tindex);
  684. END;
  685.  
  686. { Groups }
  687. PROCEDURE HorizGroup;
  688. begin
  689.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  690.     tritontags[tindex].ti_Data := longint(0);
  691.     Inc(tindex);
  692. END;
  693.  
  694. PROCEDURE HorizGroupE;
  695. begin
  696.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  697.     tritontags[tindex].ti_Data := TRGR_EQUALSHARE;
  698.     Inc(tindex);
  699. END;
  700.  
  701. PROCEDURE HorizGroupS;
  702. begin
  703.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  704.     tritontags[tindex].ti_Data := TRGR_PROPSPACES;
  705.     Inc(tindex);
  706. END;
  707.  
  708. PROCEDURE HorizGroupA;
  709. begin
  710.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  711.     tritontags[tindex].ti_Data := TRGR_ALIGN;
  712.     Inc(tindex);
  713. END;
  714.  
  715. PROCEDURE HorizGroupEA;
  716. begin
  717.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  718.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_ALIGN);
  719.     Inc(tindex);
  720. END;
  721.  
  722. PROCEDURE HorizGroupSA;
  723. begin
  724.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  725.     tritontags[tindex].ti_Data := (TRGR_PROPSPACES OR TRGR_ALIGN);
  726.     Inc(tindex);
  727. END;
  728.  
  729. PROCEDURE HorizGroupC;
  730. begin
  731.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  732.     tritontags[tindex].ti_Data := TRGR_CENTER;
  733.     Inc(tindex);
  734. END;
  735.  
  736. PROCEDURE HorizGroupEC;
  737. begin
  738.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  739.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_CENTER);
  740.     Inc(tindex);
  741. END;
  742.  
  743. PROCEDURE HorizGroupSC;
  744. begin
  745.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  746.     tritontags[tindex].ti_Data := (TRGR_PROPSPACES OR TRGR_CENTER);
  747.     Inc(tindex);
  748. END;
  749.  
  750. PROCEDURE HorizGroupAC;
  751. begin
  752.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  753.     tritontags[tindex].ti_Data := (TRGR_ALIGN OR TRGR_CENTER);
  754.     Inc(tindex);
  755. END;
  756.  
  757. PROCEDURE HorizGroupEAC;
  758. begin
  759.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  760.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_ALIGN OR TRGR_CENTER);
  761.     Inc(tindex);
  762. END;
  763.  
  764. PROCEDURE HorizGroupSAC;
  765. begin
  766.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  767.     tritontags[tindex].ti_Data := (TRGR_PROPSPACES OR TRGR_ALIGN OR TRGR_CENTER);
  768.     Inc(tindex);
  769. END;
  770.  
  771. PROCEDURE VertGroup;
  772. begin
  773.     tritontags[tindex].ti_Tag := TRGR_Vert;
  774.     tritontags[tindex].ti_Data := longint(0);
  775.     Inc(tindex);
  776. END;
  777.  
  778. PROCEDURE VertGroupE;
  779. begin
  780.     tritontags[tindex].ti_Tag := TRGR_Vert;
  781.     tritontags[tindex].ti_Data := TRGR_EQUALSHARE;
  782.     Inc(tindex);
  783. END;
  784.  
  785. PROCEDURE VertGroupS;
  786. begin
  787.     tritontags[tindex].ti_Tag := TRGR_Vert;
  788.     tritontags[tindex].ti_Data := TRGR_PROPSPACES;
  789.     Inc(tindex);
  790. END;
  791.  
  792. PROCEDURE VertGroupA;
  793. begin
  794.     tritontags[tindex].ti_Tag := TRGR_Vert;
  795.     tritontags[tindex].ti_Data := TRGR_ALIGN;
  796.     Inc(tindex);
  797. END;
  798.  
  799. PROCEDURE VertGroupEA;
  800. begin
  801.     tritontags[tindex].ti_Tag := TRGR_Vert;
  802.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_ALIGN);
  803.     Inc(tindex);
  804. END;
  805.  
  806. PROCEDURE VertGroupSA;
  807. begin
  808.     tritontags[tindex].ti_Tag := TRGR_Vert;
  809.     tritontags[tindex].ti_Data := (TRGR_PROPSPACES OR TRGR_ALIGN);
  810.     Inc(tindex);
  811. END;
  812.  
  813. PROCEDURE VertGroupC;
  814. begin
  815.     tritontags[tindex].ti_Tag := TRGR_Vert;
  816.     tritontags[tindex].ti_Data := TRGR_CENTER;
  817.     Inc(tindex);
  818. END;
  819.  
  820. PROCEDURE VertGroupEC;
  821. begin
  822.     tritontags[tindex].ti_Tag := TRGR_Vert;
  823.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_CENTER);
  824.     Inc(tindex);
  825. END;
  826.  
  827. PROCEDURE VertGroupSC;
  828. begin
  829.     tritontags[tindex].ti_Tag := TRGR_Vert;
  830.     tritontags[tindex].ti_Data := (TRGR_PROPSPACES OR TRGR_CENTER);
  831.     Inc(tindex);
  832. END;
  833.  
  834. PROCEDURE VertGroupAC;
  835. begin
  836.     tritontags[tindex].ti_Tag := TRGR_Vert;
  837.     tritontags[tindex].ti_Data := (TRGR_ALIGN OR TRGR_CENTER);
  838.     Inc(tindex);
  839. END;
  840.  
  841. PROCEDURE VertGroupEAC;
  842. begin
  843.     tritontags[tindex].ti_Tag := TRGR_Vert;
  844.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_ALIGN OR TRGR_CENTER);
  845.     Inc(tindex);
  846. END;
  847.  
  848. PROCEDURE VertGroupSAC;
  849. begin
  850.     tritontags[tindex].ti_Tag := TRGR_Vert;
  851.     tritontags[tindex].ti_Data := (TRGR_PROPSPACES OR TRGR_ALIGN OR TRGR_CENTER);
  852.     Inc(tindex);
  853. END;
  854.  
  855. PROCEDURE EndGroup;
  856. begin
  857.     tritontags[tindex].ti_Tag := TRGR_End;
  858.     tritontags[tindex].ti_Data := longint(0);
  859.     Inc(tindex);
  860. END;
  861.  
  862. PROCEDURE ColumnArray;
  863. begin
  864.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  865.     tritontags[tindex].ti_Data := (TRGR_ARRAY OR TRGR_ALIGN OR TRGR_CENTER);
  866.     Inc(tindex);
  867. END;
  868.  
  869. PROCEDURE LineArray;
  870. begin
  871.     tritontags[tindex].ti_Tag := TRGR_Vert;
  872.     tritontags[tindex].ti_Data := (TRGR_ARRAY OR TRGR_ALIGN OR TRGR_CENTER);
  873.     Inc(tindex);
  874. END;
  875.  
  876. PROCEDURE BeginColumn;
  877. begin
  878.     tritontags[tindex].ti_Tag := TRGR_Vert;
  879.     tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER);
  880.     Inc(tindex);
  881. END;
  882.  
  883. PROCEDURE BeginLine;
  884. begin
  885.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  886.     tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER);
  887.     Inc(tindex);
  888. END;
  889.  
  890. PROCEDURE BeginColumnI;
  891. begin
  892.     tritontags[tindex].ti_Tag := TRGR_Vert;
  893.     tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER OR 
  894. TRGR_INDEP);
  895.     Inc(tindex);
  896. END;
  897.  
  898. PROCEDURE BeginLineI;
  899. begin
  900.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  901.     tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER OR 
  902. TRGR_INDEP);
  903.     Inc(tindex);
  904. END;
  905.  
  906. PROCEDURE BeginColumnE;
  907. begin
  908.     tritontags[tindex].ti_Tag := TRGR_Vert;
  909.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_ALIGN OR TRGR_CENTER);
  910.     Inc(tindex);
  911. END;
  912.  
  913. PROCEDURE BeginLineE;
  914. begin
  915.     tritontags[tindex].ti_Tag := TRGR_Horiz;
  916.     tritontags[tindex].ti_Data := (TRGR_EQUALSHARE OR TRGR_ALIGN OR TRGR_CENTER);
  917.     Inc(tindex);
  918. END;
  919.  
  920. PROCEDURE EndColumn;
  921. BEGIN
  922.     EndGroup;
  923. END;
  924.  
  925. PROCEDURE EndLine;
  926. BEGIN
  927.     EndGroup;
  928. END;
  929.  
  930. PROCEDURE EndArray;
  931. BEGIN
  932.     EndGroup;
  933. END;
  934.  
  935. { DisplayObject }
  936. PROCEDURE QuickHelp(Str : STRING);
  937. BEGIN
  938.     QuickHelp(pas2c(Str));
  939. END;
  940.  
  941. PROCEDURE QuickHelp(Str : PChar);
  942. BEGIN
  943.     tritontags[tindex].ti_Tag := TRDO_QuickHelpString;
  944.     tritontags[tindex].ti_Data := longint(Str);
  945.     Inc(tindex);
  946. END;
  947.  
  948. { Space }
  949. PROCEDURE SpaceB;
  950. begin
  951.     tritontags[tindex].ti_Tag := TROB_Space;
  952.     tritontags[tindex].ti_Data := TRST_BIG;
  953.     Inc(tindex);
  954. END;
  955.  
  956. PROCEDURE Space;
  957. begin
  958.     tritontags[tindex].ti_Tag := TROB_Space;
  959.     tritontags[tindex].ti_Data := TRST_NORMAL;
  960.     Inc(tindex);
  961. END;
  962.  
  963. PROCEDURE SpaceS;
  964. begin
  965.     tritontags[tindex].ti_Tag := TROB_Space;
  966.     tritontags[tindex].ti_Data := TRST_SMALL;
  967.     Inc(tindex);
  968. END;
  969.  
  970. PROCEDURE SpaceN;
  971. begin
  972.     tritontags[tindex].ti_Tag := TROB_Space;
  973.     tritontags[tindex].ti_Data := TRST_NONE;
  974.     Inc(tindex);
  975. END;
  976.  
  977. { Text }
  978. PROCEDURE TextN(ttext : STRING);
  979. BEGIN
  980.     TextN(pas2c(ttext));
  981. END;
  982.  
  983. PROCEDURE TextN(ttext : PChar);
  984. BEGIN
  985.     tritontags[tindex].ti_Tag := TROB_Text;
  986.     tritontags[tindex].ti_Data := longint(0);
  987.     Inc(tindex);
  988.     tritontags[tindex].ti_Tag := TRAT_Text;
  989.     tritontags[tindex].ti_Data := longint(ttext);
  990.     Inc(tindex);
  991. END;
  992.  
  993.  
  994. PROCEDURE TextH(ttext : STRING);
  995. BEGIN
  996.     TextH(pas2c(ttext));
  997. END;
  998.  
  999. PROCEDURE TextH(ttext : PChar);
  1000. BEGIN
  1001.     tritontags[tindex].ti_Tag := TROB_Text;
  1002.     tritontags[tindex].ti_Data := longint(0);
  1003.     Inc(tindex);
  1004.     tritontags[tindex].ti_Tag := TRAT_Text;
  1005.     tritontags[tindex].ti_Data := longint(ttext);
  1006.     Inc(tindex);
  1007.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1008.     tritontags[tindex].ti_Data := TRTX_HIGHLIGHT;
  1009.     Inc(tindex);
  1010. END;
  1011.  
  1012.  
  1013. PROCEDURE Text3(ttext : STRING);
  1014. BEGIN
  1015.     Text3(pas2c(ttext));
  1016. END;
  1017.  
  1018. PROCEDURE Text3(ttext : PChar);
  1019. BEGIN
  1020.     tritontags[tindex].ti_Tag := TROB_Text;
  1021.     tritontags[tindex].ti_Data := longint(0);
  1022.     Inc(tindex);
  1023.     tritontags[tindex].ti_Tag := TRAT_Text;
  1024.     tritontags[tindex].ti_Data := longint(ttext);
  1025.     Inc(tindex);
  1026.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1027.     tritontags[tindex].ti_Data := TRTX_3D;
  1028.     Inc(tindex);
  1029. END;
  1030.  
  1031. PROCEDURE TextB(ttext : STRING);
  1032. BEGIN
  1033.     TextB(pas2c(ttext));
  1034. END;
  1035.  
  1036. PROCEDURE TextB(ttext : PChar);
  1037. BEGIN
  1038.     tritontags[tindex].ti_Tag := TROB_Text;
  1039.     tritontags[tindex].ti_Data := longint(0);
  1040.     Inc(tindex);
  1041.     tritontags[tindex].ti_Tag := TRAT_Text;
  1042.     tritontags[tindex].ti_Data := longint(ttext);
  1043.     Inc(tindex);
  1044.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1045.     tritontags[tindex].ti_Data := TRTX_BOLD;
  1046.     Inc(tindex);
  1047. END;
  1048.  
  1049. PROCEDURE TextT(ttext : STRING);
  1050. BEGIN
  1051.     TextT(pas2c(ttext));
  1052. END;
  1053.  
  1054. PROCEDURE TextT(ttext : PChar);
  1055. BEGIN
  1056.     tritontags[tindex].ti_Tag := TROB_Text;
  1057.     tritontags[tindex].ti_Data := longint(0);
  1058.     Inc(tindex);
  1059.     tritontags[tindex].ti_Tag := TRAT_Text;
  1060.     tritontags[tindex].ti_Data := longint(ttext);
  1061.     Inc(tindex);
  1062.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1063.     tritontags[tindex].ti_Data := TRTX_TITLE;
  1064.     Inc(tindex);
  1065. END;
  1066.  
  1067. PROCEDURE TextID(ttext : STRING ; gadid : longint);
  1068. BEGIN
  1069.     TextID(pas2c(ttext),gadid);
  1070. END;
  1071.  
  1072. PROCEDURE TextID(ttext : PChar ; gadid : longint);
  1073. BEGIN
  1074.     tritontags[tindex].ti_Tag := TROB_Text;
  1075.     tritontags[tindex].ti_Data := longint(0);
  1076.     Inc(tindex);
  1077.     tritontags[tindex].ti_Tag := TRAT_Text;
  1078.     tritontags[tindex].ti_Data := longint(ttext);
  1079.     Inc(tindex);
  1080.     tritontags[tindex].ti_Tag := TRAT_ID;
  1081.     tritontags[tindex].ti_Data := longint(gadid);
  1082.     Inc(tindex);
  1083. END;
  1084.  
  1085. PROCEDURE TextNR(t : STRING);
  1086. BEGIN
  1087.     TextNR(pas2c(t));
  1088. END;
  1089.  
  1090. PROCEDURE TextNR(t : PChar);
  1091. BEGIN
  1092.     TextN(t);
  1093.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1094.     tritontags[tindex].ti_Data := TROF_RIGHTALIGN;
  1095.     Inc(tindex);
  1096. END;
  1097.  
  1098. PROCEDURE ClippedText(t : STRING);
  1099. BEGIN
  1100.     ClippedText(pas2c(t));
  1101. END;
  1102.  
  1103. PROCEDURE ClippedText(t : PChar);
  1104. BEGIN
  1105.     TextN(t);
  1106.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1107.     tritontags[tindex].ti_Data := (TRTX_CLIPPED OR TRTX_NOUNDERSCORE);
  1108.     Inc(tindex);
  1109. END;
  1110.  
  1111. PROCEDURE ClippedTextID(t : STRING; gadid : longint);
  1112. BEGIN
  1113.     ClippedTextID(pas2c(t),gadid);
  1114. END;
  1115.  
  1116. PROCEDURE ClippedTextID(t : PChar; gadid : longint);
  1117. BEGIN
  1118.     TextN(t);
  1119.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1120.     tritontags[tindex].ti_Data := (TRTX_CLIPPED OR TRTX_NOUNDERSCORE);
  1121.     Inc(tindex);
  1122.     tritontags[tindex].ti_Tag := TRAT_ID;
  1123.     tritontags[tindex].ti_Data := longint(gadid);
  1124.     Inc(tindex);
  1125. END;
  1126.  
  1127. PROCEDURE CenteredText(ttext : STRING);
  1128. BEGIN
  1129.     CenteredText(pas2c(ttext));
  1130. END;
  1131.  
  1132. PROCEDURE CenteredText(ttext : PChar);
  1133. BEGIN
  1134.     HorizGroupSC; Space; TextN(ttext);Space; EndGroup;
  1135. END;
  1136.  
  1137. PROCEDURE CenteredTextH(ttext : STRING);
  1138. BEGIN
  1139.     CenteredTextH(pas2c(ttext));
  1140. END;
  1141.  
  1142. PROCEDURE CenteredTextH(ttext : PChar);
  1143. BEGIN
  1144.     HorizGroupSC; Space; TextH(ttext); Space; EndGroup;
  1145. END;
  1146.  
  1147. PROCEDURE CenteredText3(ttext : STRING);
  1148. BEGIN
  1149.     CenteredText3(pas2c(ttext));
  1150. END;
  1151.  
  1152. PROCEDURE CenteredText3(ttext : PChar);
  1153. BEGIN
  1154.     HorizGroupSC; Space; Text3(ttext); Space; EndGroup;
  1155. END;
  1156.  
  1157. PROCEDURE CenteredTextB(ttext : STRING);
  1158. BEGIN
  1159.     CenteredTextB(pas2c(ttext));
  1160. END;
  1161.  
  1162. PROCEDURE CenteredTextB(ttext : PChar);
  1163. BEGIN
  1164.     HorizGroupSC; Space; TextB(ttext); Space; EndGroup;
  1165. END;
  1166.  
  1167. PROCEDURE CenteredTextID(ttext : STRING ; gadid : longint);
  1168. BEGIN
  1169.     CenteredTextID(pas2c(ttext),gadid);
  1170. END;
  1171.  
  1172. PROCEDURE CenteredTextID(ttext : PChar ; gadid : longint);
  1173. BEGIN
  1174.     HorizGroupSC; Space; TextID(ttext,gadid); Space; EndGroup;
  1175. END;
  1176.  
  1177. PROCEDURE CenteredText_BS(ttext : STRING);
  1178. BEGIN
  1179.     CenteredText_BS(pas2c(ttext));
  1180. END;
  1181.  
  1182. PROCEDURE CenteredText_BS(ttext : PChar);
  1183. BEGIN
  1184.     HorizGroupSC; SpaceB; TextN(ttext); SpaceB; EndGroup;
  1185. END;
  1186.  
  1187. PROCEDURE TextBox(ttext : STRING ; gadid : longint ; mwid : longint);
  1188. BEGIN
  1189.     TextBox(pas2c(ttext),gadid,mwid);
  1190. END;
  1191.  
  1192. PROCEDURE TextBox(ttext : PChar ; gadid : longint ; mwid : longint);
  1193. BEGIN
  1194.     TTextBox; ObjectBackfillB; VertGroup; SpaceS;
  1195.     HorizGroupSC; Space; TextN(ttext);
  1196.     tritontags[tindex].ti_Tag := TRAT_ID;
  1197.     tritontags[tindex].ti_Data := longint(gadid);
  1198.     Inc(tindex);
  1199.     tritontags[tindex].ti_Tag := TRAT_MinWidth;
  1200.     tritontags[tindex].ti_Data := longint(mwid);
  1201.     Inc(tindex);
  1202.     Space; EndGroup; SpaceS; EndGroup;
  1203. END;
  1204.  
  1205. PROCEDURE ClippedTextBox(ttext : STRING ; gadid : longint);
  1206. BEGIN
  1207.     ClippedTextBox(pas2c(ttext),gadid);
  1208. END;
  1209.  
  1210. PROCEDURE ClippedTextBox(ttext : PChar ; gadid : longint);
  1211. BEGIN
  1212.     TTextBox; ObjectBackfillB; VertGroupAC; SpaceS; HorizGroupAC; Space;
  1213.     ClippedTextID(ttext,gadid); Space; EndGroup; SpaceS; EndGroup;
  1214. END;
  1215.  
  1216. PROCEDURE ClippedTextBoxMW(ttext : STRING ; gadid : longint ; mwid : longint);
  1217. BEGIN
  1218.     ClippedTextBoxMW(pas2c(ttext),gadid,mwid);
  1219. END;
  1220.  
  1221. PROCEDURE ClippedTextBoxMW(ttext : PChar ; gadid : longint ; mwid : longint);
  1222. BEGIN
  1223.     TTextBox; ObjectBackfillB; VertGroupAC; SpaceS; HorizGroupAC; Space;
  1224.     ClippedTextID(ttext,gadid);
  1225.     tritontags[tindex].ti_Tag := TRAT_MinWidth;
  1226.     tritontags[tindex].ti_Data := longint(mwid);
  1227.     Inc(tindex);
  1228.     Space; EndGroup; SpaceS; EndGroup;
  1229. END;
  1230.  
  1231. PROCEDURE TextRIGHT(t : STRING ;gadid : longint);
  1232. BEGIN
  1233.     TextRIGHT(pas2c(t),gadid);
  1234. END;
  1235.  
  1236. PROCEDURE TextRIGHT(t : PChar ;gadid : longint);
  1237. BEGIN
  1238.     HorizGroupS; Space; TextN(t); ID(gadid); EndGroup;
  1239. END;
  1240.  
  1241. PROCEDURE IntegerS(i : longint);
  1242. BEGIN
  1243.     tritontags[tindex].ti_Tag := TROB_Text;
  1244.     tritontags[tindex].ti_Data := longint(0);
  1245.     Inc(tindex);
  1246.     tritontags[tindex].ti_Tag := TRAT_Value;
  1247.     tritontags[tindex].ti_Data := longint(i);
  1248.     Inc(tindex);
  1249. END;
  1250.  
  1251. PROCEDURE IntegerH(i : longint);
  1252. BEGIN
  1253.     tritontags[tindex].ti_Tag := TROB_Text;
  1254.     tritontags[tindex].ti_Data := longint(0);
  1255.     Inc(tindex);
  1256.     tritontags[tindex].ti_Tag := TRAT_Value;
  1257.     tritontags[tindex].ti_Data := longint(i);
  1258.     Inc(tindex);
  1259.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1260.     tritontags[tindex].ti_Data := TRTX_HIGHLIGHT;
  1261.     Inc(tindex);
  1262. END;
  1263.  
  1264. PROCEDURE Integer3(i : longint);
  1265. BEGIN
  1266.     tritontags[tindex].ti_Tag := TROB_Text;
  1267.     tritontags[tindex].ti_Data := longint(0);
  1268.     Inc(tindex);
  1269.     tritontags[tindex].ti_Tag := TRAT_Value;
  1270.     tritontags[tindex].ti_Data := longint(i);
  1271.     Inc(tindex);
  1272.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1273.     tritontags[tindex].ti_Data := TRTX_3D;
  1274.     Inc(tindex);
  1275. END;
  1276.  
  1277. PROCEDURE IntegerB(i : longint);
  1278. BEGIN
  1279.     tritontags[tindex].ti_Tag := TROB_Text;
  1280.     tritontags[tindex].ti_Data := longint(0);
  1281.     Inc(tindex);
  1282.     tritontags[tindex].ti_Tag := TRAT_Value;
  1283.     tritontags[tindex].ti_Data := longint(i);
  1284.     Inc(tindex);
  1285.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1286.     tritontags[tindex].ti_Data := TRTX_BOLD;
  1287.     Inc(tindex);
  1288. END;
  1289.  
  1290. PROCEDURE CenteredInteger(i : longint);
  1291. BEGIN
  1292.     HorizGroupSC; Space; IntegerS(i); Space; EndGroup;
  1293. END;
  1294.  
  1295. PROCEDURE CenteredIntegerH(i : longint);
  1296. BEGIN
  1297.     HorizGroupSC; Space; IntegerH(i); Space; EndGroup;
  1298. END;
  1299.  
  1300. PROCEDURE CenteredInteger3(i : longint);
  1301. BEGIN
  1302.     HorizGroupSC; Space; Integer3(i); Space; EndGroup;
  1303. END;
  1304.  
  1305. PROCEDURE CenteredIntegerB(i : longint);
  1306. BEGIN
  1307.     HorizGroupSC; Space; IntegerB(i); Space; EndGroup;
  1308. END;
  1309.  
  1310. PROCEDURE IntegerBox(def,gadid,mwid : longint);
  1311. BEGIN
  1312.     GroupBox; ObjectBackfillB; VertGroup; SpaceS; HorizGroupSC;
  1313.     Space; IntegerS(def);
  1314.     tritontags[tindex].ti_Tag := TRAT_ID;
  1315.     tritontags[tindex].ti_Data := longint(gadid);
  1316.     Inc(tindex);
  1317.     tritontags[tindex].ti_Tag := TRAT_MinWidth;
  1318.     tritontags[tindex].ti_Data := longint(mwid);
  1319.     Inc(tindex);
  1320.     Space; EndGroup; SpaceS; EndGroup;
  1321. END;
  1322.  
  1323. { Button }
  1324. PROCEDURE Button(ttext : STRING ; gadid : longint);
  1325. BEGIN
  1326.     Button(pas2c(ttext),gadid);
  1327. END;
  1328.  
  1329. PROCEDURE Button(ttext : PChar ; gadid : longint);
  1330. BEGIN
  1331.     tritontags[tindex].ti_Tag := TROB_Button;
  1332.     tritontags[tindex].ti_Data := longint(0);
  1333.     Inc(tindex);
  1334.     tritontags[tindex].ti_Tag := TRAT_Text;
  1335.     tritontags[tindex].ti_Data := longint(ttext);
  1336.     Inc(tindex);
  1337.     tritontags[tindex].ti_Tag := TRAT_ID;
  1338.     tritontags[tindex].ti_Data := longint(gadid);
  1339.     Inc(tindex);
  1340. END;
  1341.  
  1342. PROCEDURE ButtonR(ttext : STRING ; gadid : longint);
  1343. BEGIN
  1344.     ButtonR(pas2c(ttext),gadid);
  1345. END;
  1346.  
  1347. PROCEDURE ButtonR(ttext : PChar ; gadid : longint);
  1348. BEGIN
  1349.     tritontags[tindex].ti_Tag := TROB_Button;
  1350.     tritontags[tindex].ti_Data := longint(0);
  1351.     Inc(tindex);
  1352.     tritontags[tindex].ti_Tag := TRAT_Text;
  1353.     tritontags[tindex].ti_Data := longint(ttext);
  1354.     Inc(tindex);
  1355.     tritontags[tindex].ti_Tag := TRAT_ID;
  1356.     tritontags[tindex].ti_Data := longint(gadid);
  1357.     Inc(tindex);
  1358.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1359.     tritontags[tindex].ti_Data := TRBU_RETURNOK;
  1360.     Inc(tindex);
  1361. END;
  1362.  
  1363. PROCEDURE ButtonE(ttext : STRING ;gadid : longint);
  1364. BEGIN
  1365.     ButtonE(pas2c(ttext),gadid);
  1366. END;
  1367.  
  1368. PROCEDURE ButtonE(ttext : PChar ;gadid : longint);
  1369. BEGIN
  1370.     tritontags[tindex].ti_Tag := TROB_Button;
  1371.     tritontags[tindex].ti_Data := longint(0);
  1372.     Inc(tindex);
  1373.     tritontags[tindex].ti_Tag := TRAT_Text;
  1374.     tritontags[tindex].ti_Data := longint(ttext);
  1375.     Inc(tindex);
  1376.     tritontags[tindex].ti_Tag := TRAT_ID;
  1377.     tritontags[tindex].ti_Data := longint(gadid);
  1378.     Inc(tindex);
  1379.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1380.     tritontags[tindex].ti_Data := TRBU_ESCOK;
  1381.     Inc(tindex);
  1382. END;
  1383.  
  1384. PROCEDURE ButtonRE(ttext : STRING ;gadid : longint);
  1385. BEGIN
  1386.     ButtonRE(pas2c(ttext),gadid);
  1387. END;
  1388.  
  1389. PROCEDURE ButtonRE(ttext : PChar ;gadid : longint);
  1390. BEGIN
  1391.     tritontags[tindex].ti_Tag := TROB_Button;
  1392.     tritontags[tindex].ti_Data := longint(0);
  1393.     Inc(tindex);
  1394.     tritontags[tindex].ti_Tag := TRAT_Text;
  1395.     tritontags[tindex].ti_Data := longint(ttext);
  1396.     Inc(tindex);
  1397.     tritontags[tindex].ti_Tag := TRAT_ID;
  1398.     tritontags[tindex].ti_Data := longint(gadid);
  1399.     Inc(tindex);
  1400.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1401.     tritontags[tindex].ti_Data := (TRBU_RETURNOK OR TRBU_ESCOK);
  1402.     Inc(tindex);
  1403. END;
  1404.  
  1405. PROCEDURE CenteredButton(t : STRING;i : longint);
  1406. BEGIN
  1407.     CenteredButton(pas2c(t),i);
  1408. END;
  1409.  
  1410. PROCEDURE CenteredButton(t : PChar;i : longint);
  1411. BEGIN
  1412.     HorizGroupSC; Space;
  1413.     tritontags[tindex].ti_Tag := TROB_Button;
  1414.     tritontags[tindex].ti_Data := longint(0);
  1415.     Inc(tindex);
  1416.     tritontags[tindex].ti_Tag := TRAT_Text;
  1417.     tritontags[tindex].ti_Data := longint(t);
  1418.     Inc(tindex);
  1419.     tritontags[tindex].ti_Tag := TRAT_ID;
  1420.     tritontags[tindex].ti_Data := longint(i);
  1421.     Inc(tindex);
  1422.     Space; EndGroup;
  1423. END;
  1424.  
  1425. PROCEDURE CenteredButtonR(t : STRING ;i : longint);
  1426. BEGIN
  1427.     CenteredButtonR(pas2c(t),i);
  1428. END;
  1429.  
  1430. PROCEDURE CenteredButtonR(t : PChar ;i : longint);
  1431. BEGIN
  1432.     HorizGroupSC; Space;
  1433.     tritontags[tindex].ti_Tag := TROB_Button;
  1434.     tritontags[tindex].ti_Data := longint(0);
  1435.     Inc(tindex);
  1436.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1437.     tritontags[tindex].ti_Data := TRBU_RETURNOK;
  1438.     Inc(tindex);
  1439.     tritontags[tindex].ti_Tag := TRAT_Text;
  1440.     tritontags[tindex].ti_Data := longint(t);
  1441.     Inc(tindex);
  1442.     tritontags[tindex].ti_Tag := TRAT_ID;
  1443.     tritontags[tindex].ti_Data := longint(i);
  1444.     Inc(tindex);
  1445.     Space; EndGroup;
  1446. END;
  1447.  
  1448. PROCEDURE CenteredButtonE(t : STRING;i : longint);
  1449. BEGIN
  1450.     CenteredButtonE(pas2c(t),i);
  1451. END;
  1452.  
  1453. PROCEDURE CenteredButtonE(t : PChar;i : longint);
  1454. BEGIN
  1455.     HorizGroupSC; Space;
  1456.     tritontags[tindex].ti_Tag := TROB_Button;
  1457.     tritontags[tindex].ti_Data := longint(0);
  1458.     Inc(tindex);
  1459.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1460.     tritontags[tindex].ti_Data := TRBU_ESCOK;
  1461.     Inc(tindex);
  1462.     tritontags[tindex].ti_Tag := TRAT_Text;
  1463.     tritontags[tindex].ti_Data := longint(t);
  1464.     Inc(tindex);
  1465.     tritontags[tindex].ti_Tag := TRAT_ID;
  1466.     tritontags[tindex].ti_Data := longint(i);
  1467.     Inc(tindex);
  1468.     Space; EndGroup;
  1469. END;
  1470.  
  1471. PROCEDURE CenteredButtonRE(t : STRING ;i : longint);
  1472. BEGIN
  1473.     CenteredButtonRE(pas2c(t),i);
  1474. END;
  1475.  
  1476. PROCEDURE CenteredButtonRE(t : PChar ;i : longint);
  1477. BEGIN
  1478.     HorizGroupSC; Space;
  1479.     tritontags[tindex].ti_Tag := TROB_Button;
  1480.     tritontags[tindex].ti_Data := longint(0);
  1481.     Inc(tindex);
  1482.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1483.     tritontags[tindex].ti_Data := (TRBU_RETURNOK OR TRBU_ESCOK);
  1484.     Inc(tindex);
  1485.     tritontags[tindex].ti_Tag := TRAT_Text;
  1486.     tritontags[tindex].ti_Data := longint(t);
  1487.     Inc(tindex);
  1488.     tritontags[tindex].ti_Tag := TRAT_ID;
  1489.     tritontags[tindex].ti_Data := longint(i);
  1490.     Inc(tindex);
  1491.     Space; EndGroup;
  1492. END;
  1493.  
  1494. PROCEDURE EmptyButton(gadid : longint);
  1495. BEGIN
  1496.     tritontags[tindex].ti_Tag := TROB_Button;
  1497.     tritontags[tindex].ti_Data := longint(0);
  1498.     Inc(tindex);
  1499.     tritontags[tindex].ti_Tag := TRAT_Text;
  1500.     tritontags[tindex].ti_Data := longstr('');
  1501.     Inc(tindex);
  1502.     tritontags[tindex].ti_Tag := TRAT_ID;
  1503.     tritontags[tindex].ti_Data := longint(gadid);
  1504.     Inc(tindex);
  1505. END;
  1506.  
  1507. PROCEDURE GetFileButton(gadid : longint);
  1508. BEGIN
  1509.     tritontags[tindex].ti_Tag := TROB_Button;
  1510.     tritontags[tindex].ti_Data := TRBT_GETFILE;
  1511.     Inc(tindex);
  1512.     tritontags[tindex].ti_Tag := TRAT_Text;
  1513.     tritontags[tindex].ti_Data := longstr('');
  1514.     Inc(tindex);
  1515.     tritontags[tindex].ti_Tag := TRAT_ID;
  1516.     tritontags[tindex].ti_Data := longint(gadid);
  1517.     Inc(tindex);
  1518.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1519.     tritontags[tindex].ti_Data := TRBU_YRESIZE;
  1520.     Inc(tindex);
  1521. END;
  1522.  
  1523. PROCEDURE GetDrawerButton(gadid : longint);
  1524. BEGIN
  1525.     tritontags[tindex].ti_Tag := TROB_Button;
  1526.     tritontags[tindex].ti_Data := TRBT_GETDRAWER;
  1527.     Inc(tindex);
  1528.     tritontags[tindex].ti_Tag := TRAT_Text;
  1529.     tritontags[tindex].ti_Data := longstr('');
  1530.     Inc(tindex);
  1531.     tritontags[tindex].ti_Tag := TRAT_ID;
  1532.     tritontags[tindex].ti_Data := longint(gadid);
  1533.     Inc(tindex);
  1534.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1535.     tritontags[tindex].ti_Data := TRBU_YRESIZE;
  1536.     Inc(tindex);
  1537. END;
  1538.  
  1539. PROCEDURE GetEntryButton(gadid : longint);
  1540. BEGIN
  1541.     tritontags[tindex].ti_Tag := TROB_Button;
  1542.     tritontags[tindex].ti_Data := TRBT_GETENTRY;
  1543.     Inc(tindex);
  1544.     tritontags[tindex].ti_Tag := TRAT_Text;
  1545.     tritontags[tindex].ti_Data := longstr('');
  1546.     Inc(tindex);
  1547.     tritontags[tindex].ti_Tag := TRAT_ID;
  1548.     tritontags[tindex].ti_Data := longint(gadid);
  1549.     Inc(tindex);
  1550.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1551.     tritontags[tindex].ti_Data := TRBU_YRESIZE;
  1552.     Inc(tindex);
  1553. END;
  1554.  
  1555. PROCEDURE GetFileButtonS(s : STRING ;gadid : longint);
  1556. BEGIN
  1557.     GetFileButtonS(pas2c(s),gadid);
  1558. END;
  1559.  
  1560. PROCEDURE GetFileButtonS(s : PChar ;gadid : longint);
  1561. BEGIN
  1562.     tritontags[tindex].ti_Tag := TROB_Button;
  1563.     tritontags[tindex].ti_Data := TRBT_GETFILE;
  1564.     Inc(tindex);
  1565.     tritontags[tindex].ti_Tag := TRAT_Text;
  1566.     tritontags[tindex].ti_Data := longint(s);
  1567.     Inc(tindex);
  1568.     tritontags[tindex].ti_Tag := TRAT_ID;
  1569.     tritontags[tindex].ti_Data := longint(gadid);
  1570.     Inc(tindex);
  1571.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1572.     tritontags[tindex].ti_Data := TRBU_YRESIZE;
  1573.     Inc(tindex);
  1574. END;
  1575.  
  1576. PROCEDURE GetDrawerButtonS(s : STRING;gadid : longint);
  1577. BEGIN
  1578.     GetDrawerButtonS(pas2c(s),gadid);
  1579. END;
  1580.  
  1581. PROCEDURE GetDrawerButtonS(s : PChar;gadid : longint);
  1582. BEGIN
  1583.     tritontags[tindex].ti_Tag := TROB_Button;
  1584.     tritontags[tindex].ti_Data := TRBT_GETDRAWER;
  1585.     Inc(tindex);
  1586.     tritontags[tindex].ti_Tag := TRAT_Text;
  1587.     tritontags[tindex].ti_Data := longint(s);
  1588.     Inc(tindex);
  1589.     tritontags[tindex].ti_Tag := TRAT_ID;
  1590.     tritontags[tindex].ti_Data := longint(gadid);
  1591.     Inc(tindex);
  1592.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1593.     tritontags[tindex].ti_Data := TRBU_YRESIZE;
  1594.     Inc(tindex);
  1595. END;
  1596.  
  1597. PROCEDURE GetEntryButtonS(s : STRING ;gadid : longint);
  1598. BEGIN
  1599.     GetEntryButtonS(pas2c(s),gadid);
  1600. END;
  1601.  
  1602. PROCEDURE GetEntryButtonS(s : PChar ;gadid : longint);
  1603. BEGIN
  1604.     tritontags[tindex].ti_Tag := TROB_Button;
  1605.     tritontags[tindex].ti_Data := TRBT_GETENTRY;
  1606.     Inc(tindex);
  1607.     tritontags[tindex].ti_Tag := TRAT_Text;
  1608.     tritontags[tindex].ti_Data := longint(s);
  1609.     Inc(tindex);
  1610.     tritontags[tindex].ti_Tag := TRAT_ID;
  1611.     tritontags[tindex].ti_Data := longint(gadid);
  1612.     Inc(tindex);
  1613.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1614.     tritontags[tindex].ti_Data := TRBU_YRESIZE;
  1615.     Inc(tindex);
  1616. END;
  1617.  
  1618. { Line }
  1619. PROCEDURE Line(flags : longint);
  1620. BEGIN
  1621.     tritontags[tindex].ti_Tag := TROB_Line;
  1622.     tritontags[tindex].ti_Data := longint(flags);
  1623.     Inc(tindex);
  1624. END;
  1625.  
  1626. PROCEDURE HorizSeparator;
  1627. BEGIN
  1628.     HorizGroupEC; Space; Line(TROF_HORIZ); Space; EndGroup;
  1629. end;
  1630.  
  1631. PROCEDURE VertSeparator;
  1632. BEGIN
  1633.     VertGroupEC; Space; Line(TROF_VERT); Space; EndGroup;
  1634. end;
  1635.  
  1636. PROCEDURE NamedSeparator(ttext : STRING);
  1637. BEGIN
  1638.     NamedSeparator(pas2c(ttext));
  1639. END;
  1640.  
  1641. PROCEDURE NamedSeparator(ttext : PChar);
  1642. BEGIN
  1643.     HorizGroupEC; Space; Line(TROF_HORIZ); Space; TextT(ttext);
  1644.     Space; Line(TROF_HORIZ); Space; EndGroup;
  1645. END;
  1646.  
  1647. PROCEDURE NamedSeparatorI(te : STRING ;gadid : longint);
  1648. BEGIN
  1649.     NamedSeparatorI(pas2c(te),gadid);
  1650. END;
  1651.  
  1652. PROCEDURE NamedSeparatorI(te : PChar ;gadid : longint);
  1653. BEGIN
  1654.     HorizGroupEC; Space; Line(TROF_HORIZ); Space; TextT(te);
  1655.     tritontags[tindex].ti_Tag := TRAT_ID;
  1656.     tritontags[tindex].ti_Data := longint(gadid);
  1657.     Inc(tindex);
  1658.     Space; Line(TROF_HORIZ); Space; EndGroup;
  1659. END;
  1660.  
  1661. PROCEDURE NamedSeparatorN(ttext : STRING);
  1662. BEGIN
  1663.     NamedSeparator(pas2c(ttext));
  1664. END;
  1665.  
  1666. PROCEDURE NamedSeparatorN(ttext : PChar);
  1667. BEGIN
  1668.     HorizGroupEC; Line(TROF_HORIZ); Space; TextT(ttext); Space; Line(TROF_HORIZ); 
  1669. EndGroup;
  1670. END;
  1671.  
  1672. PROCEDURE NamedSeparatorIN(te : STRING ;gadid : longint);
  1673. BEGIN
  1674.     NamedSeparatorIN(pas2c(te),gadid);
  1675. END;
  1676.  
  1677. PROCEDURE NamedSeparatorIN(te : PChar ;gadid : longint);
  1678. BEGIN
  1679.     HorizGroupEC; Line(TROF_HORIZ); Space; TextT(te);
  1680.     tritontags[tindex].ti_Tag := TRAT_ID;
  1681.     tritontags[tindex].ti_Data := longint(gadid);
  1682.     Inc(tindex);
  1683.     Space; Line(TROF_HORIZ); EndGroup;
  1684. END;
  1685.  
  1686. { FrameBox }
  1687. PROCEDURE GroupBox;
  1688. begin
  1689.     tritontags[tindex].ti_Tag := TROB_FrameBox;
  1690.     tritontags[tindex].ti_Data := TRFB_GROUPING;
  1691.     Inc(tindex);
  1692. END;
  1693.  
  1694. PROCEDURE NamedFrameBox(t : STRING);
  1695. BEGIN
  1696.     NamedFrameBox(pas2c(t));
  1697. END;
  1698.  
  1699. PROCEDURE NamedFrameBox(t : PChar);
  1700. BEGIN
  1701.     tritontags[tindex].ti_Tag := TROB_FrameBox;
  1702.     tritontags[tindex].ti_Data := TRFB_FRAMING;
  1703.     Inc(tindex);
  1704.     tritontags[tindex].ti_Tag := TRAT_Text;
  1705.     tritontags[tindex].ti_Data := longint(t);
  1706.     Inc(tindex);
  1707. END;
  1708.  
  1709. PROCEDURE TTextBox;
  1710. begin
  1711.     tritontags[tindex].ti_Tag := TROB_FrameBox;
  1712.     tritontags[tindex].ti_Data := TRFB_TEXT;
  1713.     Inc(tindex);
  1714. END;
  1715.  
  1716. { DropBox }
  1717. PROCEDURE DropBox(gadid : longint);
  1718. BEGIN
  1719.     tritontags[tindex].ti_Tag := TROB_DropBox;
  1720.     tritontags[tindex].ti_Data := longint(0);
  1721.     Inc(tindex);
  1722.     tritontags[tindex].ti_Tag := TRAT_ID;
  1723.     tritontags[tindex].ti_Data := longint(gadid);
  1724.     Inc(tindex);
  1725. END;
  1726.  
  1727. { CheckBox gadget }
  1728. PROCEDURE CheckBox(gadid : longint);
  1729. BEGIN
  1730.     tritontags[tindex].ti_Tag := TROB_CheckBox;
  1731.     tritontags[tindex].ti_Data := longint(0);
  1732.     Inc(tindex);
  1733.     tritontags[tindex].ti_Tag := TRAT_ID;
  1734.     tritontags[tindex].ti_Data := longint(gadid);
  1735.     Inc(tindex);
  1736. END;
  1737.  
  1738. PROCEDURE CheckBoxV(value : longint; gadid : longint);
  1739. BEGIN
  1740.     tritontags[tindex].ti_Tag := TROB_CheckBox;
  1741.     tritontags[tindex].ti_Data := longint(0);
  1742.     Inc(tindex);
  1743.     tritontags[tindex].ti_Tag := TRAT_ID;
  1744.     tritontags[tindex].ti_Data := longint(gadid);
  1745.     Inc(tindex);
  1746.     tritontags[tindex].ti_Tag := TRAT_Value;
  1747.     tritontags[tindex].ti_Data := longint(value);
  1748.     Inc(tindex);
  1749. END;
  1750.  
  1751. PROCEDURE CheckBoxC(gadid : longint);
  1752. BEGIN
  1753.     tritontags[tindex].ti_Tag := TROB_CheckBox;
  1754.     tritontags[tindex].ti_Data := longint(0);
  1755.     Inc(tindex);
  1756.     tritontags[tindex].ti_Tag := TRAT_ID;
  1757.     tritontags[tindex].ti_Data := longint(gadid);
  1758.     Inc(tindex);
  1759.     tritontags[tindex].ti_Tag := TRAT_Value;
  1760.     tritontags[tindex].ti_Data := longint(1);
  1761.     Inc(tindex);
  1762. END;
  1763.  
  1764. PROCEDURE CheckBoxLEFT(gadid : longint);
  1765. BEGIN
  1766.     HorizGroupS; CheckBox(gadid); Space; EndGroup;
  1767. END;
  1768.  
  1769. PROCEDURE CheckBoxCLEFT(gadid : longint);
  1770. BEGIN
  1771.     HorizGroupS; CheckBoxC(gadid); Space; EndGroup;
  1772. END;
  1773.  
  1774. { String gadget }
  1775. PROCEDURE StringGadget(def : STRING;gadid : longint);
  1776. BEGIN
  1777.     StringGadget(pas2c(def),gadid);
  1778. END;
  1779.  
  1780. PROCEDURE StringGadget(def : PChar;gadid : longint);
  1781. BEGIN
  1782.     tritontags[tindex].ti_Tag := TROB_String;
  1783.     tritontags[tindex].ti_Data := longint(def);
  1784.     Inc(tindex);
  1785.     tritontags[tindex].ti_Tag := TRAT_ID;
  1786.     tritontags[tindex].ti_Data := longint(gadid);
  1787.     Inc(tindex);
  1788. END;
  1789.  
  1790. PROCEDURE StringGadgetNR(def : STRING ;gadid : longint);
  1791. BEGIN
  1792.     StringGadgetNR(pas2c(def),gadid);
  1793. END;
  1794.  
  1795. PROCEDURE StringGadgetNR(def : PChar ;gadid : longint);
  1796. BEGIN
  1797.     tritontags[tindex].ti_Tag := TROB_String;
  1798.     tritontags[tindex].ti_Data := longint(def);
  1799.     Inc(tindex);
  1800.     tritontags[tindex].ti_Tag := TRAT_ID;
  1801.     tritontags[tindex].ti_Data := longint(gadid);
  1802.     Inc(tindex);
  1803.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1804.     tritontags[tindex].ti_Data := TRST_NORETURNBROADCAST;
  1805.     Inc(tindex);
  1806. END;
  1807.  
  1808. PROCEDURE PasswordGadget(def : STRING ;gadid : longint);
  1809. BEGIN
  1810.     PassWordGadget(pas2c(def),gadid);
  1811. END;
  1812.  
  1813. PROCEDURE PasswordGadget(def : PChar ;gadid : longint);
  1814. BEGIN
  1815.     tritontags[tindex].ti_Tag := TROB_String;
  1816.     tritontags[tindex].ti_Data := longint(def);
  1817.     Inc(tindex);
  1818.     tritontags[tindex].ti_Tag := TRAT_ID;
  1819.     tritontags[tindex].ti_Data := longint(gadid);
  1820.     Inc(tindex);
  1821.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1822.     tritontags[tindex].ti_Data := TRST_INVISIBLE;
  1823.     Inc(tindex);
  1824. END;
  1825.  
  1826. { Cycle gadget }
  1827. PROCEDURE CycleGadget(ent : Pointer ; val,gadid : longint);
  1828. BEGIN
  1829.     tritontags[tindex].ti_Tag := TROB_Cycle;
  1830.     tritontags[tindex].ti_Data := longint(ent);
  1831.     Inc(tindex);
  1832.     tritontags[tindex].ti_Tag := TRAT_ID;
  1833.     tritontags[tindex].ti_Data := longint(gadid);
  1834.     Inc(tindex);
  1835.     tritontags[tindex].ti_Tag := TRAT_Value;
  1836.     tritontags[tindex].ti_Data := longint(val);
  1837.     Inc(tindex);
  1838. END;
  1839.  
  1840. PROCEDURE MXGadget(ent : Pointer ; val,gadid : longint);
  1841. BEGIN
  1842.     tritontags[tindex].ti_Tag := TROB_Cycle;
  1843.     tritontags[tindex].ti_Data := longint(ent);
  1844.     Inc(tindex);
  1845.     tritontags[tindex].ti_Tag := TRAT_ID;
  1846.     tritontags[tindex].ti_Data := longint(gadid);
  1847.     Inc(tindex);
  1848.     tritontags[tindex].ti_Tag := TRAT_Value;
  1849.     tritontags[tindex].ti_Data := longint(val);
  1850.     Inc(tindex);
  1851.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1852.     tritontags[tindex].ti_Data := TRCY_MX;
  1853.     Inc(tindex);
  1854. END;
  1855.  
  1856. PROCEDURE MXGadgetR(ent : Pointer; val,gadid : longint);
  1857. BEGIN
  1858.     tritontags[tindex].ti_Tag := TROB_Cycle;
  1859.     tritontags[tindex].ti_Data := longint(ent);
  1860.     Inc(tindex);
  1861.     tritontags[tindex].ti_Tag := TRAT_ID;
  1862.     tritontags[tindex].ti_Data := longint(gadid);
  1863.     Inc(tindex);
  1864.     tritontags[tindex].ti_Tag := TRAT_Value;
  1865.     tritontags[tindex].ti_Data := longint(val);
  1866.     Inc(tindex);
  1867.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1868.     tritontags[tindex].ti_Data := (TRCY_MX OR TRCY_RIGHTLABELS);
  1869.     Inc(tindex);
  1870. END;
  1871.  
  1872. { Slider gadget }
  1873. PROCEDURE SliderGadget(mini,maxi,val,gadid : longint);
  1874. BEGIN
  1875.     tritontags[tindex].ti_Tag := TROB_Slider;
  1876.     tritontags[tindex].ti_Data := longint(0);
  1877.     Inc(tindex);
  1878.     tritontags[tindex].ti_Tag := TRSL_Min;
  1879.     tritontags[tindex].ti_Data := longint(mini);
  1880.     Inc(tindex);
  1881.     tritontags[tindex].ti_Tag := TRSL_Max;
  1882.     tritontags[tindex].ti_Data := longint(maxi);
  1883.     Inc(tindex);
  1884.     tritontags[tindex].ti_Tag := TRAT_ID;
  1885.     tritontags[tindex].ti_Data := longint(gadid);
  1886.     Inc(tindex);
  1887.     tritontags[tindex].ti_Tag := TRAT_Value;
  1888.     tritontags[tindex].ti_Data := longint(val);
  1889.     Inc(tindex);
  1890. END;
  1891.  
  1892. PROCEDURE SliderGadgetV(mini,maxi,val,gadid : longint);
  1893. BEGIN
  1894.     tritontags[tindex].ti_Tag := TROB_Slider;
  1895.     tritontags[tindex].ti_Data := TROF_VERT;
  1896.     Inc(tindex);
  1897.     tritontags[tindex].ti_Tag := TRSL_Min;
  1898.     tritontags[tindex].ti_Data := longint(mini);
  1899.     Inc(tindex);
  1900.     tritontags[tindex].ti_Tag := TRSL_Max;
  1901.     tritontags[tindex].ti_Data := longint(maxi);
  1902.     Inc(tindex);
  1903.     tritontags[tindex].ti_Tag := TRAT_ID;
  1904.     tritontags[tindex].ti_Data := longint(gadid);
  1905.     Inc(tindex);
  1906.     tritontags[tindex].ti_Tag := TRAT_Value;
  1907.     tritontags[tindex].ti_Data := longint(val);
  1908.     Inc(tindex);
  1909. END;
  1910.  
  1911. { Scroller gadget }
  1912. PROCEDURE ScrollerGadget(total,visible,val,id : longint);
  1913. begin
  1914.     tritontags[tindex].ti_Tag := TROB_Scroller;
  1915.     tritontags[tindex].ti_Data := TROF_HORIZ;
  1916.     Inc(tindex);
  1917.     tritontags[tindex].ti_Tag := TRSC_Total;
  1918.     tritontags[tindex].ti_Data := longint(total);
  1919.     Inc(tindex);
  1920.     tritontags[tindex].ti_Tag := TRSC_Visible;
  1921.     tritontags[tindex].ti_Data := longint(visible);
  1922.     Inc(tindex);
  1923.     tritontags[tindex].ti_Tag := TRAT_ID;
  1924.     tritontags[tindex].ti_Data := longint(id);
  1925.     Inc(tindex);
  1926.     tritontags[tindex].ti_Tag := TRAT_Value;
  1927.     tritontags[tindex].ti_Data := longint(val);
  1928.     Inc(tindex);
  1929. end;
  1930.  
  1931. PROCEDURE ScrollerGadgetV(total,visible,val,id : longint);
  1932. begin
  1933.     tritontags[tindex].ti_Tag := TROB_Scroller;
  1934.     tritontags[tindex].ti_Data := TROF_VERT;
  1935.     Inc(tindex);
  1936.     tritontags[tindex].ti_Tag := TRSC_Total;
  1937.     tritontags[tindex].ti_Data := longint(total);
  1938.     Inc(tindex);
  1939.     tritontags[tindex].ti_Tag := TRSC_Visible;
  1940.     tritontags[tindex].ti_Data := longint(visible);
  1941.     Inc(tindex);
  1942.     tritontags[tindex].ti_Tag := TRAT_ID;
  1943.     tritontags[tindex].ti_Data := longint(id);
  1944.     Inc(tindex);
  1945.     tritontags[tindex].ti_Tag := TRAT_Value;
  1946.     tritontags[tindex].ti_Data := longint(val);
  1947.     Inc(tindex);
  1948. end;
  1949.  
  1950. { Palette gadget }
  1951. PROCEDURE PaletteGadget(val,gadid : longint);
  1952. BEGIN
  1953.     tritontags[tindex].ti_Tag := TROB_Palette;
  1954.     tritontags[tindex].ti_Data := longint(0);
  1955.     Inc(tindex);
  1956.     tritontags[tindex].ti_Tag := TRAT_ID;
  1957.     tritontags[tindex].ti_Data := longint(gadid);
  1958.     Inc(tindex);
  1959.     tritontags[tindex].ti_Tag := TRAT_Value;
  1960.     tritontags[tindex].ti_Data := longint(val);
  1961.     Inc(tindex);
  1962. END;
  1963.  
  1964. { Listview gadget }
  1965. PROCEDURE ListRO(ent : Pointer;gadid,top : longint);
  1966. BEGIN
  1967.     tritontags[tindex].ti_Tag := TROB_Listview;
  1968.     tritontags[tindex].ti_Data := longint(ent);
  1969.     Inc(tindex);
  1970.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1971.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_READONLY);
  1972.     Inc(tindex);
  1973.     tritontags[tindex].ti_Tag := TRAT_ID;
  1974.     tritontags[tindex].ti_Data := longint(gadid);
  1975.     Inc(tindex);
  1976.     tritontags[tindex].ti_Tag := TRAT_Value;
  1977.     tritontags[tindex].ti_Data := longint(0);
  1978.     Inc(tindex);
  1979.     tritontags[tindex].ti_Tag := TRLV_Top;
  1980.     tritontags[tindex].ti_Data := longint(top);
  1981.     Inc(tindex);
  1982. END;
  1983.  
  1984. PROCEDURE ListSel(ent : Pointer ;gadid,top : longint);
  1985. BEGIN
  1986.     tritontags[tindex].ti_Tag := TROB_Listview;
  1987.     tritontags[tindex].ti_Data := longint(ent);
  1988.     Inc(tindex);
  1989.     tritontags[tindex].ti_Tag := TRAT_Flags;
  1990.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SELECT);
  1991.     Inc(tindex);
  1992.     tritontags[tindex].ti_Tag := TRAT_ID;
  1993.     tritontags[tindex].ti_Data := longint(gadid);
  1994.     Inc(tindex);
  1995.     tritontags[tindex].ti_Tag := TRAT_Value;
  1996.     tritontags[tindex].ti_Data := longint(0);
  1997.     Inc(tindex);
  1998.     tritontags[tindex].ti_Tag := TRLV_Top;
  1999.     tritontags[tindex].ti_Data := longint(top);
  2000.     Inc(tindex);
  2001. END;
  2002.  
  2003. PROCEDURE ListSS(e : Pointer ;gadid,top,v : longint);
  2004. BEGIN
  2005.     tritontags[tindex].ti_Tag := TROB_Listview;
  2006.     tritontags[tindex].ti_Data := longint(e);
  2007.     Inc(tindex);
  2008.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2009.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED);
  2010.     Inc(tindex);
  2011.     tritontags[tindex].ti_Tag := TRAT_ID;
  2012.     tritontags[tindex].ti_Data := longint(gadid);
  2013.     Inc(tindex);
  2014.     tritontags[tindex].ti_Tag := TRAT_Value;
  2015.     tritontags[tindex].ti_Data := longint(v);
  2016.     Inc(tindex);
  2017.     tritontags[tindex].ti_Tag := TRLV_Top;
  2018.     tritontags[tindex].ti_Data := longint(top);
  2019.     Inc(tindex);
  2020. END;
  2021.  
  2022. PROCEDURE ListSSM(e : Pointer ;gadid,top,v,min : longint);
  2023. BEGIN
  2024.     tritontags[tindex].ti_Tag := TROB_Listview;
  2025.     tritontags[tindex].ti_Data := longint(e);
  2026.     Inc(tindex);
  2027.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2028.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED);
  2029.     Inc(tindex);
  2030.     tritontags[tindex].ti_Tag := TRAT_ID;
  2031.     tritontags[tindex].ti_Data := longint(gadid);
  2032.     Inc(tindex);
  2033.     tritontags[tindex].ti_Tag := TRAT_Value;
  2034.     tritontags[tindex].ti_Data := longint(v);
  2035.     Inc(tindex);
  2036.     tritontags[tindex].ti_Tag := TRAT_MinWidth;
  2037.     tritontags[tindex].ti_Data := longint(min);
  2038.     Inc(tindex);
  2039.     tritontags[tindex].ti_Tag := TRLV_Top;
  2040.     tritontags[tindex].ti_Data := longint(top);
  2041.     Inc(tindex);
  2042. END;
  2043.  
  2044. PROCEDURE ListROC(ent : Pointer;gadid,top : longint);
  2045. BEGIN
  2046.     tritontags[tindex].ti_Tag := TROB_Listview;
  2047.     tritontags[tindex].ti_Data := longint(ent);
  2048.     Inc(tindex);
  2049.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2050.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_READONLY OR TRLV_NOCURSORKEYS);
  2051.     Inc(tindex);
  2052.     tritontags[tindex].ti_Tag := TRAT_ID;
  2053.     tritontags[tindex].ti_Data := longint(gadid);
  2054.     Inc(tindex);
  2055.     tritontags[tindex].ti_Tag := TRAT_Value;
  2056.     tritontags[tindex].ti_Data := longint(0);
  2057.     Inc(tindex);
  2058.     tritontags[tindex].ti_Tag := TRLV_Top;
  2059.     tritontags[tindex].ti_Data := longint(top);
  2060.     Inc(tindex);
  2061. END;
  2062.  
  2063. PROCEDURE ListSelC(ent : Pointer;gadid,top : longint);
  2064. BEGIN
  2065.     tritontags[tindex].ti_Tag := TROB_Listview;
  2066.     tritontags[tindex].ti_Data := longint(ent);
  2067.     Inc(tindex);
  2068.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2069.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SELECT OR TRLV_NOCURSORKEYS);
  2070.     Inc(tindex);
  2071.     tritontags[tindex].ti_Tag := TRAT_ID;
  2072.     tritontags[tindex].ti_Data := longint(gadid);
  2073.     Inc(tindex);
  2074.     tritontags[tindex].ti_Tag := TRAT_Value;
  2075.     tritontags[tindex].ti_Data := longint(0);
  2076.     Inc(tindex);
  2077.     tritontags[tindex].ti_Tag := TRLV_Top;
  2078.     tritontags[tindex].ti_Data := longint(top);
  2079.     Inc(tindex);
  2080. END;
  2081.  
  2082. PROCEDURE ListSSC(e : Pointer;gadid,top,v : longint);
  2083. BEGIN
  2084.     tritontags[tindex].ti_Tag := TROB_Listview;
  2085.     tritontags[tindex].ti_Data := longint(e);
  2086.     Inc(tindex);
  2087.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2088.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR 
  2089. TRLV_NOCURSORKEYS);
  2090.     Inc(tindex);
  2091.     tritontags[tindex].ti_Tag := TRAT_ID;
  2092.     tritontags[tindex].ti_Data := longint(gadid);
  2093.     Inc(tindex);
  2094.     tritontags[tindex].ti_Tag := TRAT_Value;
  2095.     tritontags[tindex].ti_Data := longint(v);
  2096.     Inc(tindex);
  2097.     tritontags[tindex].ti_Tag := TRLV_Top;
  2098.     tritontags[tindex].ti_Data := longint(top);
  2099.     Inc(tindex);
  2100. END;
  2101.  
  2102. PROCEDURE ListRON(ent : Pointer ;gadid,top : longint);
  2103. BEGIN
  2104.     tritontags[tindex].ti_Tag := TROB_Listview;
  2105.     tritontags[tindex].ti_Data := longint(ent);
  2106.     Inc(tindex);
  2107.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2108.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_READONLY OR TRLV_NONUMPADKEYS);
  2109.     Inc(tindex);
  2110.     tritontags[tindex].ti_Tag := TRAT_ID;
  2111.     tritontags[tindex].ti_Data := longint(gadid);
  2112.     Inc(tindex);
  2113.     tritontags[tindex].ti_Tag := TRAT_Value;
  2114.     tritontags[tindex].ti_Data := longint(0);
  2115.     Inc(tindex);
  2116.     tritontags[tindex].ti_Tag := TRLV_Top;
  2117.     tritontags[tindex].ti_Data := longint(top);
  2118.     Inc(tindex);
  2119. END;
  2120.  
  2121. PROCEDURE ListSelN(ent : Pointer;gadid,top : longint);
  2122. BEGIN
  2123.     tritontags[tindex].ti_Tag := TROB_Listview;
  2124.     tritontags[tindex].ti_Data := longint(ent);
  2125.     Inc(tindex);
  2126.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2127.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SELECT OR TRLV_NONUMPADKEYS);
  2128.     Inc(tindex);
  2129.     tritontags[tindex].ti_Tag := TRAT_ID;
  2130.     tritontags[tindex].ti_Data := longint(gadid);
  2131.     Inc(tindex);
  2132.     tritontags[tindex].ti_Tag := TRAT_Value;
  2133.     tritontags[tindex].ti_Data := longint(0);
  2134.     Inc(tindex);
  2135.     tritontags[tindex].ti_Tag := TRLV_Top;
  2136.     tritontags[tindex].ti_Data := longint(top);
  2137.     Inc(tindex);
  2138. END;
  2139.  
  2140. PROCEDURE ListSSN(e : Pointer;gadid,top,v : longint);
  2141. BEGIN
  2142.     tritontags[tindex].ti_Tag := TROB_Listview;
  2143.     tritontags[tindex].ti_Data := longint(e);
  2144.     Inc(tindex);
  2145.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2146.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR 
  2147. TRLV_NONUMPADKEYS);
  2148.     Inc(tindex);
  2149.     tritontags[tindex].ti_Tag := TRAT_ID;
  2150.     tritontags[tindex].ti_Data := longint(gadid);
  2151.     Inc(tindex);
  2152.     tritontags[tindex].ti_Tag := TRAT_Value;
  2153.     tritontags[tindex].ti_Data := longint(v);
  2154.     Inc(tindex);
  2155.     tritontags[tindex].ti_Tag := TRLV_Top;
  2156.     tritontags[tindex].ti_Data := longint(top);
  2157.     Inc(tindex);
  2158. END;
  2159.  
  2160. PROCEDURE ListROCN(ent : Pointer;gadid,top : longint);
  2161. BEGIN
  2162.     tritontags[tindex].ti_Tag := TROB_Listview;
  2163.     tritontags[tindex].ti_Data := longint(ent);
  2164.     Inc(tindex);
  2165.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2166.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_READONLY OR TRLV_NOCURSORKEYS OR 
  2167. TRLV_NONUMPADKEYS);
  2168.     Inc(tindex);
  2169.     tritontags[tindex].ti_Tag := TRAT_ID;
  2170.     tritontags[tindex].ti_Data := longint(gadid);
  2171.     Inc(tindex);
  2172.     tritontags[tindex].ti_Tag := TRAT_Value;
  2173.     tritontags[tindex].ti_Data := longint(0);
  2174.     Inc(tindex);
  2175.     tritontags[tindex].ti_Tag := TRLV_Top;
  2176.     tritontags[tindex].ti_Data := longint(top);
  2177.     Inc(tindex);
  2178. END;
  2179.  
  2180. PROCEDURE ListSelCN(ent : Pointer;gadid,top : longint);
  2181. BEGIN
  2182.     tritontags[tindex].ti_Tag := TROB_Listview;
  2183.     tritontags[tindex].ti_Data := longint(ent);
  2184.     Inc(tindex);
  2185.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2186.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SELECT OR TRLV_NOCURSORKEYS OR 
  2187. TRLV_NONUMPADKEYS);
  2188.     Inc(tindex);
  2189.     tritontags[tindex].ti_Tag := TRAT_ID;
  2190.     tritontags[tindex].ti_Data := longint(gadid);
  2191.     Inc(tindex);
  2192.     tritontags[tindex].ti_Tag := TRAT_Value;
  2193.     tritontags[tindex].ti_Data := longint(0);
  2194.     Inc(tindex);
  2195.     tritontags[tindex].ti_Tag := TRLV_Top;
  2196.     tritontags[tindex].ti_Data := longint(top);
  2197.     Inc(tindex);
  2198. END;
  2199.  
  2200. PROCEDURE ListSSCN(e : Pointer;gadid,top,v : longint);
  2201. BEGIN
  2202.     tritontags[tindex].ti_Tag := TROB_Listview;
  2203.     tritontags[tindex].ti_Data := longint(e);
  2204.     Inc(tindex);
  2205.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2206.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR 
  2207. TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
  2208.     Inc(tindex);
  2209.     tritontags[tindex].ti_Tag := TRAT_ID;
  2210.     tritontags[tindex].ti_Data := longint(gadid);
  2211.     Inc(tindex);
  2212.     tritontags[tindex].ti_Tag := TRAT_Value;
  2213.     tritontags[tindex].ti_Data := longint(v);
  2214.     Inc(tindex);
  2215.     tritontags[tindex].ti_Tag := TRLV_Top;
  2216.     tritontags[tindex].ti_Data := longint(top);
  2217.     Inc(tindex);
  2218. END;
  2219.  
  2220. PROCEDURE FWListRO(ent : Pointer;gadid,top : longint);
  2221. BEGIN
  2222.     tritontags[tindex].ti_Tag := TROB_Listview;
  2223.     tritontags[tindex].ti_Data := longint(ent);
  2224.     Inc(tindex);
  2225.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2226.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY);
  2227.     Inc(tindex);
  2228.     tritontags[tindex].ti_Tag := TRAT_ID;
  2229.     tritontags[tindex].ti_Data := longint(gadid);
  2230.     Inc(tindex);
  2231.     tritontags[tindex].ti_Tag := TRAT_Value;
  2232.     tritontags[tindex].ti_Data := longint(0);
  2233.     Inc(tindex);
  2234.     tritontags[tindex].ti_Tag := TRLV_Top;
  2235.     tritontags[tindex].ti_Data := longint(top);
  2236.     Inc(tindex);
  2237. END;
  2238.  
  2239. PROCEDURE FWListSel(ent : Pointer;gadid,top : longint);
  2240. BEGIN
  2241.     tritontags[tindex].ti_Tag := TROB_Listview;
  2242.     tritontags[tindex].ti_Data := longint(ent);
  2243.     Inc(tindex);
  2244.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2245.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT);
  2246.     Inc(tindex);
  2247.     tritontags[tindex].ti_Tag := TRAT_ID;
  2248.     tritontags[tindex].ti_Data := longint(gadid);
  2249.     Inc(tindex);
  2250.     tritontags[tindex].ti_Tag := TRAT_Value;
  2251.     tritontags[tindex].ti_Data := longint(0);
  2252.     Inc(tindex);
  2253.     tritontags[tindex].ti_Tag := TRLV_Top;
  2254.     tritontags[tindex].ti_Data := longint(top);
  2255.     Inc(tindex);
  2256. END;
  2257.  
  2258. PROCEDURE FWListSS(e : Pointer;gadid,top,v : longint);
  2259. BEGIN
  2260.     tritontags[tindex].ti_Tag := TROB_Listview;
  2261.     tritontags[tindex].ti_Data := longint(e);
  2262.     Inc(tindex);
  2263.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2264.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED);
  2265.     Inc(tindex);
  2266.     tritontags[tindex].ti_Tag := TRAT_ID;
  2267.     tritontags[tindex].ti_Data := longint(gadid);
  2268.     Inc(tindex);
  2269.     tritontags[tindex].ti_Tag := TRAT_Value;
  2270.     tritontags[tindex].ti_Data := longint(v);
  2271.     Inc(tindex);
  2272.     tritontags[tindex].ti_Tag := TRLV_Top;
  2273.     tritontags[tindex].ti_Data := longint(top);
  2274.     Inc(tindex);
  2275. END;
  2276.  
  2277. PROCEDURE FWListROC(ent : Pointer;gadid,top : longint);
  2278. BEGIN
  2279.     tritontags[tindex].ti_Tag := TROB_Listview;
  2280.     tritontags[tindex].ti_Data := longint(ent);
  2281.     Inc(tindex);
  2282.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2283.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR 
  2284. TRLV_NOCURSORKEYS);
  2285.     Inc(tindex);
  2286.     tritontags[tindex].ti_Tag := TRAT_ID;
  2287.     tritontags[tindex].ti_Data := longint(gadid);
  2288.     Inc(tindex);
  2289.     tritontags[tindex].ti_Tag := TRAT_Value;
  2290.     tritontags[tindex].ti_Data := longint(0);
  2291.     Inc(tindex);
  2292.     tritontags[tindex].ti_Tag := TRLV_Top;
  2293.     tritontags[tindex].ti_Data := longint(top);
  2294.     Inc(tindex);
  2295. END;
  2296.  
  2297. PROCEDURE FWListSelC(ent : Pointer;gadid,top : longint);
  2298. BEGIN
  2299.     tritontags[tindex].ti_Tag := TROB_Listview;
  2300.     tritontags[tindex].ti_Data := longint(ent);
  2301.     Inc(tindex);
  2302.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2303.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR 
  2304. TRLV_NOCURSORKEYS);
  2305.     Inc(tindex);
  2306.     tritontags[tindex].ti_Tag := TRAT_ID;
  2307.     tritontags[tindex].ti_Data := longint(gadid);
  2308.     Inc(tindex);
  2309.     tritontags[tindex].ti_Tag := TRAT_Value;
  2310.     tritontags[tindex].ti_Data := longint(0);
  2311.     Inc(tindex);
  2312.     tritontags[tindex].ti_Tag := TRLV_Top;
  2313.     tritontags[tindex].ti_Data := longint(top);
  2314.     Inc(tindex);
  2315. END;
  2316.  
  2317. PROCEDURE FWListSSC(e : Pointer;gadid,top,v : longint);
  2318. BEGIN
  2319.     tritontags[tindex].ti_Tag := TROB_Listview;
  2320.     tritontags[tindex].ti_Data := longint(e);
  2321.     Inc(tindex);
  2322.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2323.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR 
  2324. TRLV_NOCURSORKEYS);
  2325.     Inc(tindex);
  2326.     tritontags[tindex].ti_Tag := TRAT_ID;
  2327.     tritontags[tindex].ti_Data := longint(gadid);
  2328.     Inc(tindex);
  2329.     tritontags[tindex].ti_Tag := TRAT_Value;
  2330.     tritontags[tindex].ti_Data := longint(v);
  2331.     Inc(tindex);
  2332.     tritontags[tindex].ti_Tag := TRLV_Top;
  2333.     tritontags[tindex].ti_Data := longint(top);
  2334.     Inc(tindex);
  2335. END;
  2336.  
  2337. PROCEDURE FWListRON(ent : Pointer;gadid,top : longint);
  2338. BEGIN
  2339.     tritontags[tindex].ti_Tag := TROB_Listview;
  2340.     tritontags[tindex].ti_Data := longint(ent);
  2341.     Inc(tindex);
  2342.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2343.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR 
  2344. TRLV_NONUMPADKEYS);
  2345.     Inc(tindex);
  2346.     tritontags[tindex].ti_Tag := TRAT_ID;
  2347.     tritontags[tindex].ti_Data := longint(gadid);
  2348.     Inc(tindex);
  2349.     tritontags[tindex].ti_Tag := TRAT_Value;
  2350.     tritontags[tindex].ti_Data := longint(0);
  2351.     Inc(tindex);
  2352.     tritontags[tindex].ti_Tag := TRLV_Top;
  2353.     tritontags[tindex].ti_Data := longint(top);
  2354.     Inc(tindex);
  2355. END;
  2356.  
  2357. PROCEDURE FWListSelN(ent : Pointer;gadid,top : longint);
  2358. BEGIN
  2359.     tritontags[tindex].ti_Tag := TROB_Listview;
  2360.     tritontags[tindex].ti_Data := longint(ent);
  2361.     Inc(tindex);
  2362.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2363.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR 
  2364. TRLV_NONUMPADKEYS);
  2365.     Inc(tindex);
  2366.     tritontags[tindex].ti_Tag := TRAT_ID;
  2367.     tritontags[tindex].ti_Data := longint(gadid);
  2368.     Inc(tindex);
  2369.     tritontags[tindex].ti_Tag := TRAT_Value;
  2370.     tritontags[tindex].ti_Data := longint(0);
  2371.     Inc(tindex);
  2372.     tritontags[tindex].ti_Tag := TRLV_Top;
  2373.     tritontags[tindex].ti_Data := longint(top);
  2374.     Inc(tindex);
  2375. END;
  2376.  
  2377. PROCEDURE FWListSSN(e : Pointer;gadid,top,v : longint);
  2378. BEGIN
  2379.     tritontags[tindex].ti_Tag := TROB_Listview;
  2380.     tritontags[tindex].ti_Data := longint(e);
  2381.     Inc(tindex);
  2382.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2383.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR 
  2384. TRLV_NONUMPADKEYS);
  2385.     Inc(tindex);
  2386.     tritontags[tindex].ti_Tag := TRAT_ID;
  2387.     tritontags[tindex].ti_Data := longint(gadid);
  2388.     Inc(tindex);
  2389.     tritontags[tindex].ti_Tag := TRAT_Value;
  2390.     tritontags[tindex].ti_Data := longint(v);
  2391.     Inc(tindex);
  2392.     tritontags[tindex].ti_Tag := TRLV_Top;
  2393.     tritontags[tindex].ti_Data := longint(top);
  2394.     Inc(tindex);
  2395. END;
  2396.  
  2397. PROCEDURE FWListROCN(ent : Pointer;gadid,top : longint);
  2398. BEGIN
  2399.     tritontags[tindex].ti_Tag := TROB_Listview;
  2400.     tritontags[tindex].ti_Data := longint(ent);
  2401.     Inc(tindex);
  2402.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2403.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR 
  2404. TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
  2405.     Inc(tindex);
  2406.     tritontags[tindex].ti_Tag := TRAT_ID;
  2407.     tritontags[tindex].ti_Data := longint(gadid);
  2408.     Inc(tindex);
  2409.     tritontags[tindex].ti_Tag := TRAT_Value;
  2410.     tritontags[tindex].ti_Data := longint(0);
  2411.     Inc(tindex);
  2412.     tritontags[tindex].ti_Tag := TRLV_Top;
  2413.     tritontags[tindex].ti_Data := longint(top);
  2414.     Inc(tindex);
  2415. END;
  2416.  
  2417. PROCEDURE FWListSelCN(ent : Pointer;gadid,top : longint);
  2418. BEGIN
  2419.     tritontags[tindex].ti_Tag := TROB_Listview;
  2420.     tritontags[tindex].ti_Data := longint(ent);
  2421.     Inc(tindex);
  2422.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2423.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR 
  2424. TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
  2425.     Inc(tindex);
  2426.     tritontags[tindex].ti_Tag := TRAT_ID;
  2427.     tritontags[tindex].ti_Data := longint(gadid);
  2428.     Inc(tindex);
  2429.     tritontags[tindex].ti_Tag := TRAT_Value;
  2430.     tritontags[tindex].ti_Data := longint(0);
  2431.     Inc(tindex);
  2432.     tritontags[tindex].ti_Tag := TRLV_Top;
  2433.     tritontags[tindex].ti_Data := longint(top);
  2434.     Inc(tindex);
  2435. END;
  2436.  
  2437. PROCEDURE FWListSSCN(e : Pointer;gadid,top,v : longint);
  2438. BEGIN
  2439.     tritontags[tindex].ti_Tag := TROB_Listview;
  2440.     tritontags[tindex].ti_Data := longint(e);
  2441.     Inc(tindex);
  2442.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2443.     tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR 
  2444. TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
  2445.     Inc(tindex);
  2446.     tritontags[tindex].ti_Tag := TRAT_ID;
  2447.     tritontags[tindex].ti_Data := longint(gadid);
  2448.     Inc(tindex);
  2449.     tritontags[tindex].ti_Tag := TRAT_Value;
  2450.     tritontags[tindex].ti_Data := longint(v);
  2451.     Inc(tindex);
  2452.     tritontags[tindex].ti_Tag := TRLV_Top;
  2453.     tritontags[tindex].ti_Data := longint(top);
  2454.     Inc(tindex);
  2455. END;
  2456.  
  2457. { Progress indicator }
  2458. PROCEDURE Progress(maxi,value,gadid : longint);
  2459. BEGIN
  2460.     tritontags[tindex].ti_Tag := TROB_Progress;
  2461.     tritontags[tindex].ti_Data := longint(maxi);
  2462.     Inc(tindex);
  2463.     tritontags[tindex].ti_Tag := TRAT_ID;
  2464.     tritontags[tindex].ti_Data := longint(gadid);
  2465.     Inc(tindex);
  2466.     tritontags[tindex].ti_Tag := TRAT_Value;
  2467.     tritontags[tindex].ti_Data := longint(value);
  2468.     Inc(tindex);
  2469. END;
  2470.  
  2471. { Image }
  2472. PROCEDURE BoopsiImage(img : Pointer);
  2473. BEGIN
  2474.     tritontags[tindex].ti_Tag := TROB_Image;
  2475.     tritontags[tindex].ti_Data := longint(img);
  2476.     Inc(tindex);
  2477.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2478.     tritontags[tindex].ti_Data := TRIM_BOOPSI;
  2479.     Inc(tindex);
  2480. END;
  2481.  
  2482. PROCEDURE BoopsiImageD(img : Pointer;mw,mh : longint);
  2483. BEGIN
  2484.     tritontags[tindex].ti_Tag := TROB_Image;
  2485.     tritontags[tindex].ti_Data := longint(img);
  2486.     Inc(tindex);
  2487.     tritontags[tindex].ti_Tag := TRAT_MinWidth;
  2488.     tritontags[tindex].ti_Data := longint(mw);
  2489.     Inc(tindex);
  2490.     tritontags[tindex].ti_Tag := TRAT_MinHeight;
  2491.     tritontags[tindex].ti_Data := longint(mh);
  2492.     Inc(tindex);
  2493.     tritontags[tindex].ti_Tag := TRAT_Flags;
  2494.     tritontags[tindex].ti_Data := TRIM_BOOPSI;
  2495.     Inc(tindex);
  2496. END;
  2497.  
  2498. { Attributes }
  2499. PROCEDURE ID(gadid : longint);
  2500. BEGIN
  2501.     tritontags[tindex].ti_Tag := TRAT_ID;
  2502.     tritontags[tindex].ti_Data := longint(gadid);
  2503.     Inc(tindex);
  2504. END;
  2505.  
  2506. PROCEDURE Disabled;
  2507. begin
  2508.     tritontags[tindex].ti_Tag := TRAT_Disabled;
  2509.     tritontags[tindex].ti_Data := longint(1);
  2510.     Inc(tindex);
  2511. END;
  2512.  
  2513. PROCEDURE ObjectBackfillWin;
  2514. begin
  2515.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2516.     tritontags[tindex].ti_Data := TRBF_WINDOWBACK;
  2517.     Inc(tindex);
  2518. END;
  2519.  
  2520. PROCEDURE ObjectBackfillReq;
  2521. begin
  2522.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2523.     tritontags[tindex].ti_Data := TRBF_REQUESTERBACK;
  2524.     Inc(tindex);
  2525. END;
  2526.  
  2527. PROCEDURE ObjectBackfillB;
  2528. begin
  2529.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2530.     tritontags[tindex].ti_Data := TRBF_NONE;
  2531.     Inc(tindex);
  2532. END;
  2533.  
  2534. PROCEDURE ObjectBackfillS;
  2535. begin
  2536.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2537.     tritontags[tindex].ti_Data := TRBF_SHINE;
  2538.     Inc(tindex);
  2539. END;
  2540.  
  2541. PROCEDURE ObjectBackfillSA;
  2542. begin
  2543.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2544.     tritontags[tindex].ti_Data := TRBF_SHINE_SHADOW;
  2545.     Inc(tindex);
  2546. END;
  2547.  
  2548. PROCEDURE ObjectBackfillSF;
  2549. begin
  2550.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2551.     tritontags[tindex].ti_Data := TRBF_SHINE_FILL;
  2552.     Inc(tindex);
  2553. END;
  2554.  
  2555. PROCEDURE ObjectBackfillSB;
  2556. begin
  2557.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2558.     tritontags[tindex].ti_Data := TRBF_SHINE_BACKGROUND;
  2559.     Inc(tindex);
  2560. END;
  2561.  
  2562. PROCEDURE ObjectBackfillA;
  2563. begin
  2564.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2565.     tritontags[tindex].ti_Data := TRBF_SHADOW;
  2566.     Inc(tindex);
  2567. END;
  2568.  
  2569. PROCEDURE ObjectBackfillAF;
  2570. begin
  2571.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2572.     tritontags[tindex].ti_Data := TRBF_SHADOW_FILL;
  2573.     Inc(tindex);
  2574. END;
  2575.  
  2576. PROCEDURE ObjectBackfillAB;
  2577. begin
  2578.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2579.     tritontags[tindex].ti_Data := TRBF_SHADOW_BACKGROUND;
  2580.     Inc(tindex);
  2581. END;
  2582.  
  2583. PROCEDURE ObjectBackfillF;
  2584. begin
  2585.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2586.     tritontags[tindex].ti_Data := TRBF_FILL;
  2587.     Inc(tindex);
  2588. END;
  2589.  
  2590. PROCEDURE ObjectBackfillFB;
  2591. begin
  2592.     tritontags[tindex].ti_Tag := TRAT_Backfill;
  2593.     tritontags[tindex].ti_Data := TRBF_FILL_BACKGROUND;
  2594.     Inc(tindex);
  2595. END;
  2596.  
  2597. { Requester support }
  2598. PROCEDURE BeginRequester(t : STRING; p : longint);
  2599. BEGIN
  2600.     BeginRequester(pas2c(t),p);
  2601. END;
  2602.  
  2603. PROCEDURE BeginRequester(t : PChar; p : longint);
  2604. BEGIN
  2605.     WindowTitle(t);WindowPosition(p);WindowBackfillReq;
  2606.     WindowFlags(TRWF_NOZIPGADGET OR TRWF_NOSIZEGADGET OR TRWF_NOCLOSEGADGET OR 
  2607. TRWF_NODELZIP OR TRWF_NOESCCLOSE);
  2608.     VertGroupA; Space; HorizGroupA; Space; GroupBox; ObjectBackfillB;
  2609. END;
  2610.  
  2611. PROCEDURE BeginRequesterGads;
  2612. BEGIN
  2613.     Space; EndGroup; Space;
  2614. END;
  2615.  
  2616. PROCEDURE EndRequester;
  2617. BEGIN
  2618.     Space; EndGroup; EndProject;
  2619. END;
  2620.  
  2621. PROCEDURE SetTRTag( thetag, thedata : longint);
  2622. begin
  2623.     tritontags[tindex].ti_Tag := thetag;
  2624.     tritontags[tindex].ti_Data := longint(thedata);
  2625.     Inc(tindex);
  2626. end;
  2627.  
  2628. end.
  2629.  
  2630.  
  2631.  
  2632.  
  2633.  
  2634.  
  2635.  
  2636.